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INT 
a ce Check 


Initiated RepLeconent Table 
~y Proce es ing Information 
| sitet = int tialize Host Te letoted Replacement Table 


sPseett HIRT = ¢ = Gain exclusive access to HIRT 
GRAN Complete granting rte to the HIRT 
SUSUNCOC IRT = Release HIRT a 
busrest CAIRT. RUALTENT - Aceynulete RWA TCNT for wiRt 
0 HIRT = Cancel requests from the HIR . 
U T = Do T cheqnup for a disconne 
DUSRSTRTQ_HIRT_CDRP = Do connec si + failed sieame of HIRT CDRP 
DUSREPLACE_LBN”= Replace a failing block 
DUSONL INE COMPLETE = Perform HIRT "operat ions after ONLINE 
WRITE art “BLOCK = Write an RCT sect 
READ_RCT_BLOCK = Read an RCT sector 
TO kerb PACKET = Recycle an MSCP end message 
Piet RCT_PACKET = Prepare an MSCP packet for an RCT transfer 
PAGE™= Map a page for a transfer 


LBN"= Hash an LBN into a RCT block and an offse 
DUSHIR ERROR = Process error encountered during HIRT “ precessing 


Page 
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TITL UHIRT HOST INITIATED REPLACEMENT FOR THE DISK CLASS DRIVER 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL FQuIPHENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fe seek IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor iee 

Y ACCORDANCE WITH THE yen MS OF SUCH bICENSE AND WITH THE 
LU TON OF THE ABOVE ptt hd NOTICE. THIS SOF TWA RE OR ANY OTHER 
IES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 

* ® 
* ® 
cs ® 
® & 
t - 
® w 
= * 
® & 
® ® 
oe ® 
* TRANSFERRED. . 
® ® 
* ® 
7 a 
* ® 
® ® 
om * 
we * 
wt oS 
* 
*@ y 


a ed ts ts te te 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
MSCP Disk Class Driver 
ABSTRACT: 
Buddy! You're in a world of HIRT (Host Inititated Replacement Table). 
This module »cenreins all the routines and data oprycture definitions 
needed by the disk class driver to perform host initiated cept ecqnone 
of questionable blocks on disks conforming to the DSA specification. 
ENVIRONMENT: 


This module is Linked into DUDRIVER, the VMS disk class driver. 


Soooo 


Soooooo 
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AUTHOR: Ralph 0. Weber (ghost writer for Robert L. Rappaport) 
CREATION DATE: 21-JAN-1984 
MODIFIED BY: 
v03-004 ROW0398 Ralph 0. Weber 21-JUL-1984 
setup use of class Gri er urite-lock bit in ucesy re VSTS, 


Also eliminate alteration and use of DEV$V_S L bit 
UCB L_DEVCHAR. That bit is controlled by the file aysten. 
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v03-003 ROW0346 

> Add worst fail 
requests produ 
status codes. 
Add several mo 
Supress error 
the possibly b 
Use tea | clas 
testing MSCP s 
packet. 


v03-002 ROW0332 
Cause message to 
error occurs dur 


v03-001 ROW0331 

Change DUSCANCEL 
CORPSW_DUTUCNTR. 
module header. 


vv 


BUSARSs 


Ralph 0. Weber 11-APR-1984 
ure status reporting to insure that 1/0 
cing failed replacement requests get failure 


re error Logging points. 

recovery - error correction when testing 

ad block in step 7. 

s driver macros for common rynct tone like 
uccess/failure and initializing a MSCP command 


Ralph 0. Weber 2-APR=-1984 
appear on the system console whenever an 
ing RDT processing. 


Rol en 0. Weber 29-MAR=1984 
_FROM_HIRT to count wait count adjustment in 
Also add comments from old DUDRIVER to its 
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«SBTTL DECLARATIONS 
; INCLUDE FILES: 
CDDBDEF 
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oe ee ee 
zo 
v@ 
Ed m-a----0 O 
a. 


ele eo 


<monzwo7o 
=<monwvovc’J7 
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CHARACTERISTICS bits | 
M+ Types 


UNE TION codes 

levels | 

P oltsets 

ne MSCP packet offsets 

ine MSCP Error Log offsets 
s | 


= 
"Ormwoo°odao 


-om 


“++. 


Sete Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se 
\~1~- 1-1 -1-1- 1-41-44 4 S SO 
&@220®02002000080800208000 


an 
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SOS 
ee 


sDefine Path breed ets 
sDefine PCB offse 
sDefine PDT offse 
Define Processor ese 
F sDefine RCT offsets 
sDefine mt attaste 

: sy3ten Block Offsets 
+9 tad Define : S Connect Message offsets | 
SSSDEF sDefine System Status values 
wi eore sDefine UCB offsets 

sDefine Virtual Address offset 
SVECDEF Define INTERRUPT DISPATCH VECTOR offsets 


awn «6mm ww nO TTT HET 
mm 
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SDUTUDEF Define common class driver CDDB 
3 extensions and other common symbols 


3 CONSTANTS 
TEST_PATTERN=* xB6DBCB6D ; Pattern to write on bad blocks. 


B6DBCB6D 


MODULE PSECT 
-PSECT $$$115_DRIVER LONG 
SET DEFAULT DISPLACEMENT 
-DEFAULT DISPLACEMENT WORD 


a kk tt tk a a a a st ts ts ds 2 
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MACRO Ber ial IONS g- EE 138 98:78:38 DRIVER. SRCJDUHIRT.MAR; 1 nee dh 

p908 -SBTTL MACRO DEFINITIONS 

tt -MACRO HIRT guBsave ; Save return on HIRT substack. 

D000 POPL @HIRTSL_STKPTR 3; Pop return from stack onto substack. 

006 ADDL #4, HIRTSL_STKPTR ; Bump substack pointer. 

itt .ENOM = HIRT_SUBSAVE 


-MACRO HIRT_SUBUNSAVE Pop top of SUBSTACK and push onto stack. 
SUBL Bd nTaver : Psta k = 


100¢ STKPTR ; Pop substack. 

000¢ PUSHL a@HIRTSL_STKPTR ; Put top of substack onto top of stack. 
5000 -ENDM HIRT_SUBUNSAVE 

9000 -MACRO HIRT SUBRETURN + HIRT SUBUNSAVE and return to caller. 
D00C HIRT_SUBUNSAJE 

D00¢ ; Return to subroutine caller. 

09 -ENDM = HIRT_SUBRETURN 

eelele 

eelele . 

2008 Expanded opcode macros - Branch word conditional psuedo opcodes. 

D006 . 

3009 ; BWNEQ - Branch (word offset) not equal 

000 . 

D00 -MACRO BWNEQ ODEST,?L1 

DC . SHOW 

D0 BEQL L1 3; Branch around if NOT NEQ. 

U0 BRw DEST ; Branch to destination if NEQ. 

' Li: 3; Around. 


-NOSHOW 
-ENDM BWNEQ 


3; BWEQL - Branch (word offset) equal 


S000 
SSOoSOSSoS 


MACRO BWEQL ODEST,?L1 


BNEQ L1 3; Branch around if NOT EQL. 
BRwW DEST $ grosses to destination if EQL. 
3; Around. 


SOO OOOS 
SOOO 


fC 
7 
ee 


-NOSHOW 
-ENDM BWEQL 


a a kk ed a a et a at a = Ss a a a a 1s 1 a te 
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+ 

eeleye 3 

d00¢ 3; BWBS - Branch (word offset) bit set. 

YUL e 

tiejere 

0000 MACRO BWBS BIT, FIELD, DEST, 2L1 

‘eles . SHOW 

000 BBC BIT,FIELD,L1 3; Branch around if bit NOT set. 
00¢ BRW DEST : Branch to destination if bit set. 
0006 Li: 3; Around. 

0000 -NOSHOW 

p90 -ENDM B8WBS 
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RO oer iA iff ong $7365 =}38% 88: 7% § DRIVER. SRC JDUH UHIRT.MAR; 1 
187 ; 
: 3 : BWBC - Branch (word offset) bit clear. 
1 o 
MACRO BWBC =-_- BIT, FIELD, DEST, 2L1 
1 BBS BIT, FIELD,L1 : Branch around if bit NOT ¢ 
1 BRW DEST : Branch to destination if b 
195 LI: ; Around. 
196 .NOSHOW 
19 SENDM © BWBC 
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-SBTTL IRP = CORP Consistancy Check 
3; The following set of ASS tatements will all be true as long as 
the IR? nist { . 


: and CORP de ons remain consistent. 
4 ASSUME CDRPSL_IOOQFL-CORPSL_IOOFL EQ IRP$L_IOQFL 
5 ASSUME CDORPS$L-1OQBL-CORPSL~IOQFL EQ IRP$L_100BL 
§ ASSUME CORPSW-IRP_ ie-¢ L.100FL £0 IRP$W_SIZE 
ASSUM CORE *1RP- TYP SgDRPst 1OQFL ~=—ss«EQ IRP$B_TYPE 
$ ASSUME CDRPSB_RMOB-CDRPSL_IOOFL EQ IRP$B_RMOD 
SSUME CDRPSL_PID-CORPSL_TOOFL EQ IRPSL_PID 
9 ASSUME CORPSL-AST-CDRPSL joart EQ IRPS$L_AST 
1 ASSUME CDRPSL-ASTPRM-CORPSL_IOQFL EQ IRPSL_ASTPRM 
\¢ SSUM PSL-WIND-CDRPSL_IOQFL EQ IRPS$L_WIND 
1 ASSUME CORP SL UCB-CORPSL TOOFL EQ IRP$L_UCB 
14 ASSUME CORPSU_FUNC=CDRE C 100FL EQ IRPS$W_FUNC 
15 SUME CORPSB-EFN-CDRPSL_TOOFL EQ IRP$B_EFN 
16 ASSUME CORPSB_PRI-CORPSL IOQFL EQ IRP$B_PRI 
1 SUME CORPSL-10SB-CDRPSC_IOOFL EQ IRP$L_10SB 
18 ASSUME CORPSW"CHAN-CDRPSL~ JOQFL EQ IRP$W_CHAN 
1 ASSUME CORPSW-STS-CDRPS Joort EQ IRP$W_STS 
0 ASSUME CORPSL-SVAPTE-CORPSL_IOQFL EQ IRPS$L_SVAPTE 
1 ASSUME CORPSW"BOFF-CDRPSL_IOQFL EQ IRPS$W_BOF F 
¢ ASSUME CDRPSL-BCNT-CORPSL_IOQFL EQ IRP$L_BCNT 
ASSUME CORPSU_BCNT=CDRPSL IOQFL EQ IRP$W_BCNT 
4 ASSUME CORPS$L-IOST1-CDRPSC_IOQFL EQ IRP$L_10ST1 
5 ASSUME CORPSL-MEDIA-CDRPSL_IOQFL EQ IRPSL-MEDIA 
$ ASSUME CDRPSL-10ST2-CDRPSL~ IOQFL EQ IRP$L_10ST2 
00 ASSUME CORPSL-TT_TERM-CDRPSL_IOQFL EQ IRPSL_TT_TERM 
39 $ ASSUME CDRPS$B-CARCON-CORPSL Joort EQ IRP$B_CARCON 
0 ASSUME CDORPSQ"NT _PRVMSK-CORPSL_IOQFL £0 IRP$Q_NT_PRVMSK 
38 0 ASSUME CORPSL-ABUNT-CDRPSL_IOOFL EQ IRP$L_ABCNT 
0 1 ASSUME CORPSW"ABCNT-CDRPSL_IOQFL EQ IRP$W_ABCNT 
99 A ASSUME CORPSL-OBCNT-CDRPSL—IOQFL EQ IRP$L_OBCNT 
9 ASSUME CORP =OBCNT=CORPSL OOFL BG IRPS$W-OBCN 
0 4 ASSUME CORPSL-SEGVBN-CDRPSC joart Q IRPS$L_SEG 
5 ASSUME CORPSL-JNL_SEQNO-CDRPS$L_I00FL £0 IRP$L_JNL_SEQNO 
° $ ASSUME CDRPS$L_D1AGBUF-CDRPSL 1O0FL EQ IRPS$L_DIAGB 
ASSUME CDRPSL-SEQNUM-CDRPSL_TOOFL EQ IRP$L-SEQ 
000 8 ASSUME CORPSL-EXTEND-CDRPSL_IOQFL EQ IRPSL-EXTEND 
0 ASSUME CORPS$L-ARB-CORPSL_IOGFL EQ IRPSL_ARB 
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Static Storage ~SEP-1984 00:15: DRIVER. SRCJDUHIRT.MAR; 1 (5 


4 -SBTTL Static staregs 
2 -SBTTL = HIRT = Host Initiated Replacement Table 
44 ;+ 
45 ; The following table is allocated within the Disk Class Driver. There is 
0 ‘8 ; only one such table per system. The HIRT is used to control resources 
0 47 ; needed by the Host Initiated Replacement of disk blocks algorithms. In 
0 ‘8 3; order to Limit the resources dedicated to this activity, only one such 
0 49 ; replacement is allowed to proceed at any given instant of time. Replacement 
i 29 3 requests which cannot be immediately satisfied are queued. 
8s ser 
0000 +4 e2 -PSECT $$$300_HIRT LONG 
00000000 0000 2$ HIRTSL_RPLOFL: .LONG 0 3; Request Queue FLINK. 
00000000 0004 57 HIRTSL_RPLQTP: .LONG 8 3; Request Queue Tail Pointer. 
0000 0008 28 HIRTSW_IOST: » WORD ; Static storage for routines. 
i 4 oboe 23 HIRTSW_IOWORST: — 8 ; Worst 1/0 status encountered. 
0000 3 2} HIRTSW_STS: «WORD 0 ; HIRT status word. 
0010 8 $VIELD HIRT,0,<- 
0010 64 <ACTIVE,.M>,- ; Set means HIRT has been initialized. 
0010 65 <BUSY, ,M>,- 3 Set means HIRT being used currently. 
838 66 <FE,,M>,= : Set means force error on original data 
01 67 <MATCH,,M>,- |; SEARCH RCT bit - set => LBN matched 
0010 268 <EMPTYPE,,M>,- ; SEARCH RCT BIT - set => not primar 
0010 4 <RESCAN,,M>,- ; SEARCH RCT BIT - set => reached NULLS A 
3318 0 <RCTFULL,.M>.- ; SEARCH RCT BIT = set => no more RBNs avail 
010 71 <ERLOGIP,,M>,- ; Error Log message has been generated 
0010 i <RCTFE,,M>,- 3; Write RCT block with Forced Error 
0010 37% 2 
00000000 0010 eA HIRTSL_LOOPCNT: .LONG 0 3 aoe reouct wooe READ_RCT_BLOCK and 
00000000 0014 77 HIRTSL_OWNUCB: .LONG 0 : If HIRT buSy, owner UCB address. 
0000000 Baie 8 HIRTSL_LBN: -LONG QO : LBN being replaced for UCB. 
0000000 OIC 79 HIRTSL_SAVDCDRP:.LONG 0 ; CDRP address of 1/0 request of owner. 
00000000 09 ? 30 HIRTSL_CDRP: -LONG 0 ; Address of permanent CDRP for replacement. 
00000000 0024 &: HIRTSL_PAGEOPTR:.LONG 0 ; System Virtual Address of scratch page 
028 8 : needed by Replacement algorithm. 
00000000 8 4 HIRTSL_PAGEIPTR:.LONG 0 ; System Virtual Address of scratch page 
C 5 : needed by Replacement algorithm. 
00000000 C $ HIRTSL_PAGE2PTR:.LONG 0 ; System Virtual Address of scratch page 
8 ; needed by Replacement algorithm. 
00000000 3 HIRTSL_PAGESPTR:.LONG 0 ; System Virtual Address of scratch page 
2 H : needed by Replacement algorithm. 
000 4 91 HIRTSL_SVAPTEO: .LONG ; SVAPTE of page 0. 
00 8 3 HIRTSL_SVAPTE1: . ; SVAPTE of page 1. 
4 f 9 Wan Tet VAP TES: - LONG ; SVAPTE of page 2. 
rh Be HIRTSL_SVAPTES: . ; SVAPTE of page 3. 
$008 44 38 HIRT$W_BOFFO WORD 8 ; BOFF of page 0. 
46 97 HIRTSW_BOFF1 WORD ; BOFF of page 1. 


13 | 

DUHIRT HOST INITIATED REPLACEMENT FOR THE DISK 16-SEP-1984 :5 AX/VMS Macro V04-00 Pa 
vo4-000 - HIRT = Host inf Voted Replacement Tabl 5-SEP-1 138e 88: 3§: § LORIVER. SRC) DUHIRT MAR: 1 - &) 
$008 HIRTSW_BOFF «WORD 8 3; BOFF of page 2. 
HIRTSW_BOFF WORD 3 : BOFF of page 5. 


; Page 0 contents. 
; Page 1 contents. 
; Page 2 contents. 


4 
4 
4 
4 
4 
4 
4 
000 TSWIPGSCNTNT : .WORD ; Page 5 contents. | 
5 3; Static storage needed by several routines that read and write RCT blocks. | 
44 3 HIRTSW_SECTORNO: .WORD 8 3 Sector number. | 
000 : HIRTSW_PAGENO: WORD ; Page number. 
: ; Static storage needed by SEARCH_RCT subroutine. 
5 HIRTSL_RBN: LONG 8 ; RBN returned to caller. 
00000000 5 HIRTSL— “MATCHRBN: LONG 3 Previous RBN that failed. 
00000000 6 HIRTS$L_BADRBND: “LONG 0 ; Bad RBN descriptor contents, 
6 3; used in STEP15 error recovery. 
00000000 6 HIRTSL_STARTBLK: .LONG 8 ; Sector number of Primary RBN. 
00000000 6 HIRT$L_RCTBLOCK: .LONG ; Current RCT sector number. 
00000000 : HIRTSL_OF FSET: "TONG 0 : Offset into current RCT sector. 


WRN ROROROROROROnOnD 2 2 OOOO OOOO OO 
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0 
" 
0 
00000000 ° 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


0 
0 
007 ; HIRT SUBSTACK = used by single threaded replacement algorithm as a return 
0 : 3 point stack. 
00000000 7 HIRTSL_STKPTR: .LONG 0 ; Pointer to os of SUBSTACK. 
00000000 00000000 00000000 44 4844 i HIRTSL_SUBSTACK:.LONG 0,0,0,0,0 ; SUBSTACK itself. 
00000008 8 ; H 
00000000 - RESTORE 


| 
| 
| 
| 
| 
| 
| 
| 
| 
IRTSK_SUBSTKLN=<.-HIRTSL_SUBSTACK>/4 ; Total length of SUBSTACK in Longwords. 
| 
| 
| 
| 
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-S8TTL = HIR Error Processing Information 
4; Constants used in forming HIR error messages 
SVIELD HIRER, 0, <- 


5 
S <STEP.8,M>, = 3 step gy 
3 <TYPE.4.M>, = ; Erro 
3 <ONLINE, > - : Online trot HIR) 
00000000 ‘2 HIRERSM_REPLACE = 0 
‘ ; Error type codes: 
90000001 G4 HIRERSK_READ = 1 : READ | 
00 0¢ 45 HIRERSK-WRITE = ; : WRITE 
000000 46 HIRERSK-RCTFULL = F RCT FULL 
0000004 4 HIREREK-REPFAIL = 4 : REPLACE FAILURE | 
49 . SAVE 
0000 20 -PSECT $$$301_HIR_ERRORS LONG 
2g HIR_ERR TYPES: 
00 3% BYTE 0 | 
44 41 45 52 90" 55 SASCIC /READ/ 
45 54 49 52 57 . 356 ASCIC /WRITE/ 
4C 4C 55 46 20 54 43 52 0 ’ 357 eASCIC /RCT FULL/ | 
358 -ASCIC /REPLACE FAILURE/ 
} 


45 52 5 


59 
i HIR_ERR_REPLACE : 


45 43 41 4C 50 45 52 80" 62 -ASCIC /REPLACE/ 


i 
64 HIR_ERR_ONLINE: 


45 4E 49 4C 4E 4F 9" eASCIC = /ONLINE/ 


67 
i HIR_ERR_SEG1: 


65 72 65 74 6E 75 6F 63 oF -ASCIC / encountered a / 


ow 
—w 
rr 
oS 
oS 
7 


: 

| 

49 41 46 20 45 43 41 4C 50 45 5 00° ° 
F 


OF | 
4 71 
44 : HIR_ERR_SEG2: | 
20 6E 69 20 72 6F 72 72 65 20 ° rr 7 eASCIC / error in / 
QF 75 
af i HIR_ERR_SEG3: | 
20 70 65 74 73 20 00° 4f -ASCIC / step / 


DUHIRT ay | INITIATED REPLACEMENT FOR we bt DISK 16-SEP-1984 75 AX/VMS v04-00 Page 10 | 
v04-000 HIR Error Processing Information ~$ee=138¢ 88; + 3 LORIVER. R.S DUH IRT.MAR;1 . (3) 
06 GF 
79 
; Compute maximum HIR message size 
000001 4 DEVNAMSIZ = 1 3; size of a device name 
0 8 § 3 5 TYPSIZ = ; largest error type character count 
0007 29 § FUNCSIZ = 7 3 larsest REPLACE/ONLINE character count 
0 § STEPSIZ = 2 3 max characters in step number 
00000 36 3 FIXEDSIZ = <. = HIR_ERR_SEGI> + 1 : size of fixed text 
000001 HIRERSK_DEVNAMSIZ = DEVNA 
Goo0904$ 56 3 SIZE = FIXEDSIZ + DE EVNAMSI : Aa + FUNCSIZ + STEPSIZ 
0000048 Th 3 HIRERSK_MSGSIZE = <SIZE 
0000 090 94 » RESTORE 
Bo8 2 = 
$609 97 ; 
000 98 ; HIR_ERROR 
000 99 ; 
94 rts 3 This macro calls the HIR error reporting routine. 
000 402 ; Parameters: 
000 403; 
0000 404 ; STEP step number in which the error ogcure ed 
0000 405 ; TYPE error type (one of READ / WRITE / RCTFULL) 
0000 406; FUNC function incuring error (one of REPLACE / ONLINE; 
0000 407; default = REPLACE) 
0000 408 ;-- 
000 409 
000 410 MACRO HIR_ERROR CINE’ yeas func=REPLACE 
000 411 ASSUME HIRERSV wi 
44 ret MOVZWL #<HIRERSM_ rT 
000 41 +<HIRERSK_ Ro" type" a HIRERSV_TYPE > - 
0000 414 + ‘step 
0000 415 BSBW sd DUSHIR Serko R 
0000 416 -ENDM HIR_ERROR 


i 
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DUSINIT_HIRT = Initialize Host Initiated $78 Pa 1986 88:73:35 LORIVER. SREIDUMIRT MAR: 1 att 


-SBTTL DUSINIT_HIRT = Initialize Host Initiated Replacement Table 


DUSINIT_HIRT = Initialize Host Initiated Replacement Table 
Functional Description: 


This routine initializes the HIRT, if it has not already been 
initialized. There is one HIRT per system and it resides in the 
disk class driver. It is initial ized the first time an intelligent 
controller that requires Host Initiated Bad Block Replacement is 
brought online. 


HIRT initialization includes setting up its FLINK and BLINK, allocating 
a permanent CORP for it, allocating an RSPID for it, a ee | pe an 
MSCP buffer (without Send Credit on any connection) and allocating 
four pages of memory that are needed by the replacement algorithm. 
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o Sete Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Se Se Ge 
+ 


PPP PPP PPP PPP PPP EPP E EEE 


SoOoOQOOCOooOooOoQooQoQoooooooo: 


00 
09 | Inputs: 
000 R3 CDDB address 
89 0 R4 POT address 
RS Connection permanent CDRP address 
09 0 a Outputs: 
8 o 444 Registers RO-R2 are modified. 
+ ° re Registers R3-R5 are preserved. 
4 " Implicit Outputs: 
$09 44 The HIRT is initialized as described above. 
000 $29 -- 
000 re USINIT_HIRT:: 
44 A3 seoe 00 454 POPL CDDBSL_SAVED_PC(R3) ; Save caller's PC in CDDB. 
00 6€CC€ 3 455 BBCS s*#HIRTSV_ACTIVE,- 3 Now see if HIRT already init'ed. 
03 OOOE'CF 6 rt HIRTSW_STS,10$ 
id ¥ 3; Branch aroun already initialized. 
00AS 31 OA 43 BRW END_INTT_HIRT Branch d if already initialized 
94 SA ps Op re 10$: CLRL HIRTSL_RPLOFL 3 Singly Linked List with second — 
000° CF € 11. +460 MOVAB HIRTSL_RPLOFL,- :; longword pointing to tail of List. 
0004 ‘CF 18 rhe HIRTSL_RPLOTP 
OOOE'CF O02 A8 1 188 B1SW s*#HIRTSM_ BUSY, - : Prevent use of HIRT until fully 
H ree HIRTS$SW_STS : init'ed. 
1D 238 ; Allocate the CDRP to be used and re-used during the 1/0 operations 
10 488 3 associated with dynamic Host Initiated Replacement of bad blocks. 
1D 469 ° 
51 00C4 er 5 1 636 20$: MOVZ2WL #IRPSK_LENGTH,R1 ; R1 contains amount of space to alloc. 
008F rtf BSB ALLOC_POOL ; Allocate space. Returns R2=>space. 
OA 90 £38 MOVB #OYNSC_IRP,- : Make first part of CDRP Look Like an 
OA A2 474 IRP$B_TYPE(R2) ; RP. 
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yoe-000 dU Int HIAT = Initialize Host Initiated $78 P-1984 $8 :7$:35 DRIVER. SRCJDUHIRT.MAR; 1 . (6). 
A251 0 9 475 MOVW R1, IRPSW_SIZE(R2) : Save type and size inside ‘‘IRP’’. 
60 ag D $28 MOVAB =GORPSL OQFL(R2),R5 3; RS => CDRP portion of packet. 
0020'CF 3 Dd 1a or MOVL x wpersy CORP i Save agdress of replacement CORP. 
FFAQ F 8B 6 478 MOVW #CORPSL_IOGFL,- : Size field in CDRP portion is negative 
08 AS A 47 CORPSW_CORPSIZE(RS) : offset of IRP from CDRP portion. 
39-90 [os 9 MOVB YNSC_CORP, 3; Mark type of CDRP portion. 
AA 4 DRPSB-CD_TYPE(RS) 
4A D4 4 4 ¢ CLRL CORPSL_COT(RS) ; So far we have no connection for CDRP. 
BA 04 4 4 CLRL CORPSL_RWCPTR(RS) 3; This CDRP will not use RWAITCNT. 
CA D4 #8 rt : CLRL CORPSL_LBUFH_AD(RS) ; Signal that no mapping resources allocated 
<0 7 D4 49 4 § CLRL CORPSL_RSPID(RS) ; Clear RSPID to show none yet allocated. 
CA 4 4C & CLRL ge ' MSG_BUF (RS) 3; Likewise show no MSCP buffer. 
40 a5 10 A 4F 688 MOVZBL #CDRPSA_HIRT, - ; Set HIRT permanent CDRP flag. 
05 489 CORPSL_BUTUFLAGS(R5) 
ay 
05 492 ; Allocate pages from pool to serve as buffers when reading RCT sectors 
05 4935 ; during replacement of bad blocks on a disk. 
Ce 
51 020c 8F 3C¢ 005 496 50$: MOVZWL #512+12,R1 ; R1 contains amount of space for a 
3 rh 44 3 page and a VMS structure header. | 
55 00D0 C3 3 05 499 MOVAB CDDBSA_PRMCDRP(R3), RS ; ALLOC_POOL needs RS => Permanent CDRP. 
307 3 050 00 BSBW : Allocate space. Returns R2=>space. 
55 0020°CF 00 360 4 MOVL HIRTSC_CDORP,RS ; Restore RS => Hirt CDRP. 
065 208 ASSUME CODBSB_SUBTYPE EQ CDDB$B_TYPE+1 
BO 0065 504 MOV #DYNSC_CLASSDRV- ; Place type and subtype descriptors 
066 505 '<DYNSC_CD_BBRPG@8>,- ; into header using convenient (CDDB) 
OA A2 ages ef 066 238 CODBS$B_TYPE(R2) ; offset definition. 
08 A 1 0 0068 8 OVW R1,CDDB$W_SIZE(R2) : Also place size into header. | 
52 OC A E O6F 8 MOVAB 12(R2),R2 ; Re => beyond VMS structure header. 
5 D4 0073 % CLRL R1 : Clear loop index register. | 
0024'CF41 OD 07 11 80$: TSTL HIRTSL_PAGEOPTR(R1] ; Test where to put address of allocated pag | 
o% 1 BA \¢ BEQL 90$ 3; EQL implies we have found a depository. 
1 06 7. an INCL R1 ; Else bump index register | 
3; and go back and try again. 
FSi fi \ BRB 80$ d k and i 
006° Crs! 52 00 00 1 90$: MOVL R2,HIRTSL_PAGEOPTRIR1] ; Else save Poge address. 
0044'°CF41 2 FEOO BF AB 6 1 BICW3 #*XFEOO,R2,- : Calculate BOFF of page just allocated 
et: HIRTS$W_GOFFOCR1) : and save it in the Indexed slot. | 
09 =C#EF F 1 EXTZV S*#VAST_VPN,- 3 Now calculate SVAPTE of allocated 
3g 38 15 1 0 S“#VASS_VPN,R2,R2 3 page. First get VPN. 
50 OO0'GF 00 ba 1 MOVL G*MMGSGC_SPTBASE ,RO ; Then RO => base of system page table. 
0034°CF41 6042 DE : MOVAL (RO)CR2],HIRTSL_SVAPTEOCR1) 
4 ; Move SVAPTE into proper slot. 
03 51° OI 5 CMPL R143 ; See if we are done a locating. - 
AC 19 § BLSS 50$ ; LSS implies NO, so we go to try again. 
OOOE*CF 02 7 8 BICW serie BUSY, - : Allow use of HIRT now that it has 
C HIRTSW_STS 3 been initialized. 
55 O0OD0 C3 9%E ‘ 9 MOVAB CDDBSA_PRMCDRP(R3), RS ; Get controller permanent CDRP in RS. | 
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@CDDBSL_SAVED_PC(R3) ; Return to caller. 
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IRT HOST INITIATED REPLACEMENT FOR tat DISK 16-SEP-1984 :58: AX/VMS Macro V04-00 Page 14 | 
Mba 000 ALLOC_POOL eis tt 88: $338 DRIVER. SR CIDUHIRT MAR: 1 . (7). 
r 5 -SBTTL ALLOC_POOL 
4 $ 3+ 
r ; This subroutine allocates and zeroes nonpaged pool. 
" 2 ; Inputs: | 
4 4g : R1 -# bytes of f pool to allocate 
r rh 3 RS “Addr of C€ 
4 $45 ; Outputs: | 
4 t9 ; RO -0/1 for fail/success | 
4 48 ; Ri “# bytes actually allocated | 
, $3 3 R2 -Addr of buffer allocated | 
4 i 
3 5 ALLOC_POOL: ; Allocate and zero pool 
. | 
pp O0Be $84 PUSHL ; Save R3. | 
00000000'GF 16 0086 55 JSB GFEXESALONONPAGED : Allocate from nenpeged poo | 
OE E9 00BC 2$ BLBC 3: Skip clearing structure 3 failure 
ge OBF 5 PUSHR #* A<RO R1,R2,R4,R5> 3: Save MOVC registers | 
62 51 00 6€ 00 2 oct 38 movcS #0,(SP5,#6,R1, (R2) : Zero initialize structure | 
37 BA 00C7 60 POPR #*M<RO,R1,R2,R4,R5> ; Restore MOVC registers 
3 ed 4 61 POPL R3 3; Restore R3. 
ee be 
OCD 64 10S: 3; Allocation failure. | 
Rep o : Prepare to wait awhile before trying again. 
10 AS BED OCD $9 POPL CORPSL_FR3(R5S) 3; Save R3 in RS=>UCB or CDRP. | 
14 AS 54 i) 0D1 $8 MOVL R4, CORPSL_FR4(R5) 3: Likewise R4 
18 AS BEDO 0005 56 POPL CDRPS$L_SAVB_RTN(R5) : and caller's return address. 
20 a5) 3 651=S—s 0s «0009 370 MOVL Re CORPSL_RSPID(RS) 3 Save allocation size. 
D 71 FORK_WAIT 3; Wait a 
51 3 AS 00 e3 276 MOVL CORPSL_RSPID(RS), R1 3 Rooters size of abhect to allocate. 
AS 04 Ee 2 CLRL CORPSL_RSPID(RS) 3; Restore CDRP 
18 AS) OOD EA 74 PUSHL CORPSL-SAVD_RTN(RS) 3: Restore caller‘ : return address. 
cs 11 OED 575 BRB ALLOC POOL ; Go try again. 
| 
| 
| 


< 
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-SBTTL DUSLOCK_HIRT = Gain exclusive access to HIRT 


+ 
+ 


DUSLOCK_HIRT = Gain exclusive access to HIRT 
Functional Description: 
to the H(ost) I(initiated) bad block 


ss 
ery Also, lockout new activity on the unit by 


Gain exclusive acc 
pron} ecenent Tlab 
bumping UCBSW_RWAI 


—-® 


Inputs: 


a UCB address 
R a fork block 


Implicit Inputs: 


(SP) caller's return address 
4(SP) caller's caller's return address 


Outputs: 


RO - R2 are modified. 
ALL other registers are preserved. 
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wm 
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0 
Implicit Outputs: 
; HIRT is owned by caller. 
0 
DUSLOCK_HIRT:: 
OOOE ‘CF +4 EO 00 BBS s*#HIRTSV_ACTIVE, - ; Make sure HIRT is active. 
4 0 HIRTSW_STS 
9 BUG_CHECK DISKCLASS,FATAL 
56 AS B66 INCW UCBSW_RWAITCNT(R3) 3 Prevent new CDRP's from being begun 
3 on Ss hs 
OOOE'CF 01 4=€3 00 BBCS s*#HIRT$V_BUSY, - : Allocate the Host Initiated Replac 
18 HIRTSW_STS, 10$ ; ment fable (HIRT). 
10 a5 53 7D mova R3, FKBSL_FR3(R5) 3; If here, already allocated, save 
Oc A5 8ED0 POPL FKBSL_FPCTRS) ; thread context in fork block. 


Thread R5 (a fork block) onto the tail of the fingly threaded List 
of fork blocks awaiting use of the HIRT. The Listhead is a quadword 
whose first longword points to the first fork block on the List and 
whose egcond lLongword points to the last forkblock on the List. An 
empty } st is characterized by having the spree longword contain a 
zero with the secong Longuore pointing to the first longword. Each 
fork block on the List, has the first longword of its Link gquadword 
ointing to the next fork block on the List, with the last fork 
lock containing a zero in this conquered. fhe second longword of 
each fork block’s Link quadword contains the address of the CDDB of 
the intelligent controller associated with the device unit 
attempting fo gain exclusive use of the HIRT. 


DDQQP.DQPPPP PAA PDP DPA P PDP PAPA DP PEP DPD DED DPD PPP PPD PVPS VSS TSUSVSUSUSVSVSIOSIOSION 
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; Note the reaver for CODB address here is to facilitate finding CORPs 

3; associated with a CONNECTION that has failed (gone down). 
65 04 

04 a5 O008C C3 DO 


CLRL FKBSL_FOFL(RS) 


Prepere . wn fork block to be at 
MOVL UCBSL_CDDB(R3) 


Second BAAS of Link quadword 
coo8. 


10A 
i 
10a 39 
10A $ 
: C 3 
112 641 FKBSL-~FQBL(R5) : points to 
0004'DF 65 GE Hf ot§ MOVAB FKBSL_FQFL(R5), = $ Hove address of this fork A+ oe into 
11 64 @HIRTSL_RPLOTP 3; forward ptr of previous tail. 
0004'CF 65 9E 0117 644 MOVAB ree FOFLIRS). - 3 A\se move address of this fork block 
11¢ $63 HIRTSC_RPLOTP : ist tail pointer. 
0S O1ic i) RSB : ‘ere nate this execution thread by 
Bt 4 oe ; returning to caller's caller. 
11D e8 10$: The HIRT is owned. 
01 10 011D 650 &sBB. GRANT HIRT ; Call to initialize various structures 
11F 651 3 with data of the new HIRT owner. 
05 O11F 652 RSB 3 And return to caller who now owns HIRT. 


- 
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-SBTTL GRANT_HIRT = Complete granting access to the HIRT 


Fs 
S 


> 
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: GRANT_HIRT = Complete granting access to the HIRT 
; Functional Description: 
This routine is galled from DUSLOCK_HIRT and DUSUNLOCK_HIRT, upon 


granting ownership of the HIRT to a thread. GRANT_HIRT initializes 
various data fields reflecting this ownership and facilitating the 
thread's use of the HIRT CDRP. 


Note: 
; Since both subroutines that require ownership of the HIRT, REPLACE_LBN 
and ONLINE _COMPLETE, make use of the user's original RSPID 
able to co-relate all Error Log esssages generated by a user 1/0 
request, GRANT_HIRT passes the RSPID form the user CDRP to the HIRT 
permanent CORP. 


Inputs: 


UCB address 
User CDRP address 


=D NN PAWS © NNNUNDAWOOCSCCOCSCOCOOCOCOOCOOOCOCOOOOOOOOOOOOOOO 2-4 
AAPA AAAAAAD 
NYVSTISOADO-O 
—-o we 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Gee 
22D 
iw 
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j 
| 
in | 
er | 
77 
ers ;Outputs: 
680 : Various HIRT and CORP fields updated. | 
68¢ 7 
6 ; GRANT_HIRT: | 
38 AS OD 685 PUSHL CORPSL_RSPID(RS) ; Pass current RSPID to HIRT CDRP. 
OAS D4 6 $ CLRL past RSPID(RS) ; Prevent spurious deallocates. 
OOIC’cF 55 00 6 MOVL RS, HIRTSL_SAVDCDRP 3: Save given R5. 
OO70'CF O074°CF 9E 6 5 MOVAB HIRTSL_SUBSTACK, - : Initialize SUBSTACK in HIRT. 
6 eat STKPTR | 
0014°CF 53 00 : 4 MOVL R3, HIRTSL_OWNUCB : Indicate who owns HIRT. | 
$3 33 0 01 69 VL (SP), R5 ; Get RSPID. 
E D 1 69 Ova RO, =(SP) ; Save registers. 
1 94 FIND_RSPIDRDTE ; Lookup RDT for RSPID. 
0450 €8 Q1 9 LBS RO, 10 ; Branch if lookup successful. 
1 69 BUG CHECK DISKCLASS,FATAL ; Else, major tncons tatency. 
65 0020'CF 00 01 97 10$: MOVE HIRTSL_CDRP, - ; For now pass ownership of RDTE to HIRT 
1 4 RDSL_CBRP(RS) 3 permanent CDRP. 
30 8 7 1 $3 mova (SP)#, RO ; Restore saved registers. 
55 O'CF 09 1 0 MOVL HIRTSL_CORP,RS ; RS => permanent replacement CORP. 
0 AS 8ED 1 701 POPL CORPSL-RSPIO(RS) ; Pickup RSPID to use thruout replacement. 
CAD (D4 OI ? § CLRL «= CORPSL_LBUFH_AD(R5) ; Indicate no resources yet allocated 
CA D4 01 7 CLRL coarse MSG_BOF (RS) 3 except RSPID. 
Bc aS 53 00 01 704 MOVL R3,CORPSL_OCB(RS) : Make IRT permanent CDRP => this UCB. | 
1 705 ; _This allow ies meen ing to work. 
00s C3 D0 O01 ? $ MOVL pres COT(R3),- ; Place CDT pointer into CORP for nendy 
SA 13 ? CORP C_corcrss ; reference by SCS routines. Note this | 
1 ? $ ; must be done each time the HIRT is 
168 =? ; locked since we may be using a different | 
168 710 : port (and therefore CONNECTION) each 
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GRANT MIRE ny Ay granting access to $7360 138 88:79:38 YORIVER. SREIBUH RT.MAR;1 
1 1 3 _time. 
A 1 1 MOV CBSW_RWAITCNT(R3),- 3; Point CDRP field to UCB field. 
H Ag ise 1 He ™ PORPS ES 
5 AA 1 1 BICwW a} Mt een : Initialize bit. 
05 0177 We RSB 2 3 Return to caller. 


<o 


35 
S= 
2s 


nx— 

_—s 
=> 
a 


N13 
REPLACEMENT FOR THE DISK 16-SEP-1984 00:58: AX/VMS Macro V04-00 Pa 19 
= Release HIRT access -$ sat 90:78:38 YORIVER. SREIDUNIRT MAR: 1 ™ (10) | 


of «SBTTL DUSUNLOCK_HIRT = Release HIRT access 
: 
; DUSUNLOCK_HIRT = Release HIRT access | 
; Functional Description: 
Caller wishes to relinquish exclusive gentret of the HIRT. 
It becomes the current owner's obligation to restart the first 


thread (if any are there) that may be waiting on the HIRT wait | 


DUSUNLOCK HIRT passes back the user's RSPID from the HIRT permanent 
CORP to the user's CDRP. 


Inputs: 

R3 UCB of HIRT owner 
Implicit Inputs: 

HIRT owned by caller | 


Outputs: 


R5 Original CDRP address 
ALL other registers are preserved. 


HIRT ownership relinquished. If any threads are on the HIRT wait List, 
first of these is granted HIRT ownership and is started up. 


DECW UCBSW_RWAITCNT(R3) ; Decrement to again allow normal 1/0. 
al) ; Save some registers. 


ee #°A<R2,R3,R4> : Save more registers. 


pe ee ee ee ee PP Pe PP PP PP 


WOWIOM DW 09.0009 00 09. GD 09 G9 CD CD GD CD CD Gu OD CD OD CD CD CD CO. CD CD CD CD CD CD. CD CD CD CD CD CD OD. CDCDCDCDCD 


R3, R 
JSB G°SCSSUNSTALLUCB 
POPR #*H<R2,R3, 


; Setup UCB for UNSTALLUCB. 
; Call to start up IRP’s on UCBSL_IOQFL. 


; Restore registers. 


| 

| 

Implicit Outputs: 
R4> | 
| 


HIRTSL_CORP,RS ; RS => HIRT CDRP 
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55 ag 8 po MOVL s 3 P 
AS OD 3 PUSHL CDRPSL-RSPIO(RS) ; Save current RSPID so as to restore to 
3; _user . 
as 6 9 BEQL 15$ ; EQL implies RSPID has been deallocated 
9 3; _due to re-CONNECT. Branch around. 
20 AS) (4 9 LRL CORPSL_RSPID(RS) 3; Prevent spurious deallocates. 
55 6€ 00 98 VL (SP) 3; Get RSPID. 
98 FIND _RSPID_ROTE ; Lookup RDT entry for RSPID. 
04650 €8 A BS RO, 5$ 3; Branch i Logkup successful. 
AG BUG CHECK DISKCLASS,FATAL ; Else, major inconsistancy. 
50 oorc'¢e 00 Ag 5$: move HARTSL_SAVOCDRP, RO : Get saved CDRP address 
F 1 AD BNEQ 10$ : Branch there still is a saved CDRP. 
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- Release HIRT access 


RDSL CORP (R5) 
CORPSL_RSPID( 


POPL 
ee Rgeld © 
BRB 


TSTL 
BEQL 


PUSHR 


MOVL 
MOVL 


=z 
oz 
<m 
ro 
@ 


RO, RDSL_CDRP(RS) 
HIRTSL_SAVDCDRP, R5 
RO, CDORPSL_RSPID(RS) 


(SP)+, RO 


HIRTSL_RPLOFL 
50$ 


#*M<RO,R1,R2,R3, Reiter 


aonmzrtIwsews 


HIRTSL “PPCKRO) RO 


aF KBSL 


a mcROT R1,R2,R3,R4,R5> 


s“*#HIRTSM_BUSY, 
HIRTSW 


_STS 


-SEP 


Rts 

$ 

RT s. -RPLOFL 
RT TP 
BS. “FRSURSD, »R3 


¢: 38 ve Macro Vv04-00 Page d 


DRIVER.SRCJDUHIRT.MAR; 1 


; Else, it has been canceled. 
Which means, use HIRT CORP. 
Restore its RSPID so it can be 
deallocated. 

And branch around. 


; Coss ogrerentp of RDTE back to user 
; Get original CDRP address in R5. 

; Branch if original | CDRP canceled. 

; Else, restore user's original RSPID. 


; Restore ist group of saved registers. 


; Determine if HIRT wait List is empty. 


EQL implies List empty. 
Save caller's registers. 


RS => 1st fork block on List. 

Replace ist fork block on List with 
next fork block. 

NEQ implies there was a next fork block. 
Else wait list is now empty, so re- 
direct List Tail Pointer to listhead. 
Restore waiting thread's context. 

Call to initialize various structures 
with data of the new HIRT owner. 

RO => User CDRP. Now 
resume its waiting thread. 

Restore relinquisher's registers. 

And return to relinquisher. 


If here, List was empty. 
So mark HIRT as NOT busy. 


; And return to relinquisher. 
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«SBTTL DUSTEST_HIRT_RWAITCNT = Accumulate RWAITCNT for HIRT 


— 
= 
>»D 


DUSTEST_HIRT_RWAITCNT = Accumulate RWAITCNT for HIRT 
Functional Description: 


This routine accumulates an RWAITCNT value for the input UCB based 
upon the amount RWAITCNT has been increment for HIRT usage. 


Inputs: 
RO RWAITCNT accumulator 
R5 UCB address 
Outputs: 
RO RWAITCNT accumulator (with additions for HIRT usage) 
R1 destroyed 
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BOD NIM A OF HF LVI ODW DW MMA AAA Psrsvesvnrnvsvswywsrrwswyrnnnn Et 
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FWP HO ODNA MEW $9 ODNOAUE WN 0 OD NOU EWR OOONOUS 


$ ALL other registers preserved. 
20 
0 DUSTEST_HIRT_RWAITCNT: : 
1D OOOE'CF 01 €1 5 BBC s“#HIRTSV_BUSY, HIRT$SW_STS, 90$ ; Branch if HIRT not busy. 
0014'CF 55 01 0 CMPL R5, HIRTSL_OWNUCB : Is the UCB the HIRT owner? 
9¢ 12 1 BNEQ 10$ ; Branch if not HIRT owner. 
5 D6 ! INCL RO : Else, increment RWAITCNT. 
1 10$: ASSUME FKBSL_FQFL EQ 0 
51 0000'CF 9E 1 MOVAB HIRTSC_RPLOFL, R1 3: Init. ‘‘previous'’ wait CDRP. 
5161 09 1 11$:  MOVL  FKBSL_FQFL(R1S, R1 : Link to next waiting CDRP. 
OA 1 1 BEQL 90$ ; Branch if no more waiters. 
BC Al 655—sé 1 CMPL R5, CORPS$L_UCB(R1) :; Is this waiter for this UCB? 
2: a BNEQ 11§ : Branch if not right UCB. 
50 06 INCL RO : Else, increment RWAITCNT. 
pc.) UWS § BRB 11$ ; Loop, till no more waiters. 
05 022 90$: RSB ; ALL done; exit. 
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-SBTTL DUSCANCEL_FROM_HIRT = Cancel requests from the HIRT 
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DUHIRT HO 
vo4=000 DU 


DUSCANCEL_FROM_HIRT = Cancel requests from the HIRT 
Functional Description: 


This routine is called to locate and cancel any 1/0 requests current 
or pene e for host initiated replacement. The queue of pending 
requests is scanned. The then current HIRT owner is tested. 


| 
be HIRT wait queue is scanned and all CDRPs that meet the cancel 
criteria are removed from the HIRT wait queue and queued for I/0 post 
processing. The current owner of the HIRT (if any) is similarly 
tested against the cancel criteria and if needed it too is queued for 
1/0 gers rocessing. The HIRT is left ‘‘ownerless’’ in the sense that 
HIRTSL_SAVDCORP is Left zero. This allows the current HIRT 1/0 to 
continue until it completes on its own, Then, when the HIRT is 
UNLOCKED, the “‘ownerless’’ state is noticed and the HIRT thread for the 
former owner is evaporated. 


Inputs: 
R3 UCB address | 
R5 Cancel CDRP address 
Implicit Inputs: 
CORPSW_DUTUCNTR(RS) count of number of times to increment RWAITCNT 
after cancel is completed. 
Outputs: 


RO through R2 are destroyed 
ALL other registers are preserved. 


Implicit Outputs: 


CDRPSW_DUTUCNTR(RS) count of number of times to increment RWAITCNT 
after cancel is completed. 
| 


OOOO 00 0 O00 09 0969 09 69 69 09 09 09 SI NIN NINN NS NSN NIP PAA AAAAAA MII 


RO ODA UNE WIN OOD NA UNE WIN $$ S OD NAME WIN 9 ODNAU EWN 0 OONOAU EWN OOOO 


o Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Se Se Se Ge Ge Se Ge Se Se Se Ge Se Gee Ge Fe Ge Sse Se Ge Se Se 
+ 


98 DUSCANCEL_FROM_HIRT:: 


BBC =—-sS *#HIRTSV_BUSY, - ; Is the HIRT busy? If not, there is | 
HIRTSW_STS, 906s 3 nothing to do: so branch to exit. 


3 Scan the HIRT pending requests queue | 


ASSUME FKBSL FOFL EQ 0 : 
MOVAB HIRTSC_RPLOFL, R1 ; Get ‘‘previous’’ CDRP on wait List. 


Get nect CDRP 


OOOE'CF O01 €1 
79 


51 Q000°CF 9 


52 gt 00 10$: MOVL Pepet FOFL CAT), Re : ‘ 
§ 1 BEQL 100$ ; Branch if no more CDRPs on wait List. 
04 A2 OOBC C D CMPL UCB$L_CDDB(R3), - ; Is CDRP for this CDDB? 


RROVS HL HMA HAMOOOOOWO OOOO OVOOVOVOVOOVOOVOVOVOVOVOOOVOVOWOVOOoJoJoowowoJoooooowowoO r- 


——- QOOooooooo0od sd 


wowowowowowowownowowovon9o 


_ 
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FEBS. “FOBL (R ) 


06 12 BNEQ 40 ; Branch if not the right CODB. 
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v04=000 DUSCANCEL_FROM_HIRT = Cancel requests fr $73 E 19 4 $8: 7$:35 LORIVER. SREIOUMIRT. MAR: 1 . (By 
41 13 IFCANCEL cdrp=(R2), then=70$ :; Branch if CORP should be canceled. 
51 3§ 9 47 31a 40$: MOVL Rs Ri ; Current becomes previous. 
é 1 4A 13 BRB 16$ ; Loop through all waiting CDRPs. 
61 62 00 4¢ 13 70$ MOVL FKBSL_FQFL(R2), - ; Unlink cancelable CDRP. 
4F 18 FKBSL-FQFL(R1) 
ae 4F 9 BNEQ : If cancelable CORP was Last, | 
eons 1 OD 2} 920 MOVL R1, HIRTSL_RPLOTP ; adjust queue tail pointer. 
0 é D § 921 75$: MOVL : Setup CDRP to cancel. 
44 A 86 | § INCW CDRP$W_DUTUCNTR(RS) ; Account for RWAITCNT increment during | 
¢ 3 attempt to lock the HIRT. | 
Hi Be C 924 PUSHR per aman caecse ; Save registers. 
55 0 oO ; 925 MOVL RO, R 3 setup for mgocege deallocate. 
6 9 § DEALLOC_MSG_BUF ; Deallocate End Message that told of 
66 «9 3; block to be replaced. | 
3F) Ose 64 928 POPR #*M<RO,R1,R2,R3,R4,R5> 3 Restore registers. | 
0 § 929 POST_CDRP status=$S$_ CANCEL : Insert IRP/CORP in IOPOST queue. 
BF 11 8 2 ? BRB 10$ ; Branch back to scan entire List. 
027 $34 100$: ; Is the HIRT owner a cancelable CDRP? If so retrieve this HIRT owner 
0275 93 ; CORP, clear HIRTSL_SAVDCDRP, and POST_CDRP the retrieved CDRP. Note 
0275 «934 : this works in conjunction with DUSUNLOCK HIRT and DUSRSTRTQ_HIRT_CDRP | 
8 fe 332 3 which must be prepared to find HIRTSL_SAVDCDRP = 0. 
BC AS O014°CF D1 0275 339 CMPL HIRTSL_OWNUCB, - 3; Check for correct HIRT owner UCB. | 
0278 938 CDRPSL-UCB(RSS 
28 4612 «+0278 (939 BNEQ ; Branch in wrong HIRT owner. 
52 OO1C'CF D0 027d 940 MOVL HIRTSL_SAVDCDRP, R2 ; Get CDRP owner of HIRT. 
24 13 0282 941 BEQL 900$ 3; Branch if owner already canceled, 
0284 94 3 replacement running to completion. 
84 894 IFNOCANCEL cdrp=(R2), then=900$ ; Branch if owner shouldn't be canceled. | 
QOIC'CF D4 028A 944 CLRL = HIRTSL_SAVDCORP ; Else, indicate HIRT owner canceled. | 
-” te © 8E 945  @ 3; Setup CDRP to cancel. 
91 366 3 Neprenben instruction deleted due to its causing RWAITCNT to be 
91 94 3; decremented twice; once here and once Replacement runs to completion. 
0291 948 “INCW  CDRPSW_DUTUCNTR(RS) ; Account for owning the HIRT. | 
3F Be 8 91 949 PUSHR #*M<ROTR1,R2,R3,R4,R5> |; Save registers. 
55 0 oO 93 950 MOVL RO, R5 ; Setup for mesgege deallocate. 
96 951 DEALLOC_MSG_BUF ; Deallocate End Message that told of | 
99 926 ; block to be replaced. 
3F = sodA 99 §695 POPR #*M<RO,R1,R2,R3,R4,R5> =; Restore registers. 
0 iB gee POST_CDRP status=SS$_ CANCEL : Insert IRP7CORP in IOPOST queue. 
05 A 956 900$: RSB 3; Return to caller. 
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HIRT cleanup for 5-SEP-19 
-SBTTL DUSDISCONNECT_HIRT = Do HI 


Scan the HIRT wait queue for CDRPs 
them and place on the restart 
resource wait is scanned. It 


ueue. 


DRIVER. SRC JOUHIRT.MAR; 1 
RT cleanup for a disconnect 


DUSDISCONNECT_HIRT = Do HIRT cleanup for a disconnect 
Functional Description: 


belonging to this CDDB. Remove 


held by CORPs on the HIRT wait queue before scanning any of the SCS 


resource wait queues. 


Inputs: 

R3 CODB address 

RG PDT address 

RS Permanent CDRP address 
Outputs: 


RO through R2 are destroyed. 
ALL other registers are preserved. 


DUSDISCONNECT_HIRT:: 
BBC s*#HIRT$V_ACTIVE, - F 
HIRTSU_STS, 99$ ; 
PUSHL R : 
ASSUME FKBSL_FQFL EQ 0 
MOVAB HIRTSC_RPLOFL, RO : 
MOVL  FKBSL_FOQFL(RO), RS : 
BEQL : 
CMPL «= R3, FKBSL_FQBL(RS) : 
BNEQ : 
MOVL FKBSL_FQFL(RS), - : 
FKBSL-FQFL(RO) 
BNEQ 50$ : 
MOVL RO, HIRTSL_RPLOTP : 
MOVL § CDRPSL_UCBTRS), RO : 
DECW UCBSW_RWAITCNT(RO) : 
BSBW DUTUSINSERT RESTART : 
BRB $ : 


60$: 


90$: 
99$: 


iw mao to next waiting tp 


POPL RS : 
RSB ; 


See if HIRT has been activated. 
If HIRT not active, branch around. 
Save a register. 


Get ‘‘previous’’ CDRP on wait List. 


; Get next CDRP on wait List. 
; Branch if no more waitin 


See if waiter has right 
Branch if wrong C 


; Let previous point to next. 


; Branch if current CDRP is not Last. 
; Else, 


revious is new end. 

Get UCB of interest. 

Decrement count incremented during 
attempt to allocate HIRT. 

Insert this CORP in restart queue. 
Branch back to re-scan entire 

aa wait queue. 

Current becomes previous. 


; Loop back. 


Restore saved register. 
Return to caller. 


Page j 


his must be done before the RDT 
s essential to deallocate SCS resources 


4 
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-SBTTL DUSRSTRTQ_HIRT_CDRP = Do connection failed cleanup of HIRT CDRP 
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DUSRSTRTQ_HIRT_CDRP = Do connection failed cleanup of HIRT CDRP 
Functional Description: 


This routine is called by DUTUSINSERT_RESTARTQ when it is discovered 
that the GORP destined for the restart queue is the HIRT permanent 
CORP. This action is taken instead of placing the HIRT permanent CORP 
on the restart queue. 


The CORP owning the HIRT is located and processed with a recursive 
call to DUTUSINSERT_RESTARTQ. Any mapping resources owned by the HIRT | 
permanent CORP are copied to one of the CDDB permanent CDRPs. This 

allows the resources to be deallocated sometime after the connection 
is DISCONNECTed. This prevents ‘‘insane’’ servers for incorrectsy 
overwriting aoeery due to reallocation of mapping resources. Finally, 
the HIRT is unlocked, thus making it available for some other 
replacement operation. 


Inputs: 
R3 CDOB address 
RG POT address 
RS HIRT permanent CDRP address © 

Outputs: 


RO is destroyed. 
ALL other registers are preserved. 


LJ Sete Se Se Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Se Ge SeSe Ge Se Se Se Se Se Se Se Sete 
t 
t 


USRSTRTQ_HIRT_CDRP: : 


S-WIN OS OD NAVE WN OO DNA UNE WIN OOD NAME WI OUWOONAOULS WW t 


55 oD PUSHL R5 3; Save permanent replacement CDRP addr. 
55 salt it at 1 | a taal R5 ; Get HIRT owner CDRP address. 
0340 a5 03 €0 BBS #CDRPSV_PERM, - : Branch if HIRT owner was a CDDB 
CORPSL_BUTUFLAGS(RS), - ; permanent CDRP. 


BSBW Sy USLUSERT RESTARTS : Insert HIRT owner on restart queue. 
R ; Restore HIRT permanent CORP addr. 


oe 
So 
v 
oO 
v0 
- 


| 
| 
| 
} 
; Branch if HIRT owner was canceled. 
| 


; Were mapping resources allocated? 
BEQL & ; Branch if no mapping res. allocated. 


TSTL CD aPEL LBUFH_AD CRS) 
CLRL CORPSL_LBUFH_AD(RS) Prevent duplicate Goal Locations. 


SFU FN FG FE Fe FUE TN TN ETN ETN CTR TR ETRE ETRE TN CTU EVEN CTU TU CTR ETE CTU CTU TUCTU CTU CTUCTUCTECTRCVUCTUCTOCTICTUCTUCTUCTUCTOCTOCTOCTUCvOCvOCTieyD 
PDP INE BS BB BB EB MAINA. AAAI III RIPUPINIPINININIDY 9 Os Sst 


SOOSCOOSOOOSOOOSSOGOOCOCOOSOOSSSOOSOOSOOOOOO OOOO OOOOOOOOOOOOOOOOOoOO Ooam 


POP AAAAPIPIPIMIPIAIMPIPIPPINIPIPIPIPIPIPINIPIPIPIPPINIPYIPIPIPPIPIPIPIPIPIPIPIPIPIPIPIPIPUPIPIPIPINPIPYD 
—— 
aw 


FDOF* 
55 8ED 
2c aS) oD 
} ee 
2c A & 
50 0096 C E 
2c ad 0 AO 9E 


; 
0 MOVAB CDDBSA_PRMCDRP(R3), RO ; Get CDDB permanent CORP address. | 
1 MOVAB CORP$T"LBUFHN L «ROS, - ; Put address of Local BUFfer HaNDLe 
$¢ CORPSL_LBUFH_AD(RO) ; field nte field that points to it. 
6 ASSUME CDRPSL-UBARSRCE EQ CDRPST_LBUFHNDL+12 
30 AO 430 A5 7D 64 MOVQ Tt UBT ade gee - ; Copy contents of buffer handle to 
65 DRPST_LBUFHNDL (RO) ; CD rmanent CORP. Also copy 
38 AO 3638 AS) 67D 96 mova Ts UT ote ope HEE =; CORPSL_UBARSRCE in case this is 
CORPST“LBUFHNDL+8(RO) ; a UNIBOS controller. 
53 DD $5 208: PUSHL R3 ; Save CDDB address. 


CEMENT FOR THe bi 
= Do connection 


C 
Dd 
R 


DRPSL 
ue. 


ate S2SEb=1982 88:78:38 


otk HIRT t ieleSes 


CB(R5), R3 


DRIVER. SRESBUNTRT MAR: 1 


ucB oar unlocking HIRT. 


: Restore Co0B address. 


3; Return 


7s 
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rome 


| 


14 aa ‘ 
ERLAGEMENT fn TW DESK, 1¢SEE19EE GB:59:98 YAMS Msg yO4cOD,, Pave Gy 


-SBTTL DUSREPLACE_LBN = Replace a failing block | 


IRT er A 
-000 DUSRE 


ee 
aon 
moe 
2 
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yo+ 
: DUSREPLACE_LBN = Replace a failing block 
Functional Description: 


Perform yt. bad block replacement. At the time of invocation, | 
the HIRT is already owned by the caller. 


Also gree to this routine made be made by branching (from subroutine 
ONLINE COMPLETE) to Labels STEP7 and STEP11. 


Inputs: 


R3 UCB address 
R5 HIRT permanent CDRP address 


Implicit Inputs: 


CORPSL_RSPID(RS) user RSPID 
HIRTSL_SAVDCDRP original user CDRP address 


| 
| 
HIRT owned by caller which implies HIRT SUBSTACK is operative | 
Outputs: | 
RO Replacement status | 
R1 sect ine for CDRPS$V_ERLIP 
R3 UCB address (unchanged) 
| 
R2, R4, RS destroyed. 
ALC other registers preserved. 
| 
| 
| 
| 
| 
| 


SDOCGDODOOOO 0000000000 00000000000009090909 SI INI 
FUN $$ OOD NAUNE WN S OD NAUN EW O OONOAUNE WH OOONO 


Be Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Se Se Se Se Se SeSe Se Sete Se Sete 


ee ee a ee ee ee a ee a ee a a a a a a a a ee a a a ee ad a 
SOWOONIOOCUOVTVTOVOTVTVTVVUVV VV CCC VCVCVVCVUCOVCCVCCOVCVUVCVCUUTUCTUCCTTC9O 


SOOOOOOOOSOSOOOSOSOOCOOOCOOCOCO OOOO GSOOSOOOOCSOOOOOCOOOCOOOOOOOOOOOOOoOO (US: 
AANA ANI. NAAN AAAI AI AINA AIA AIAN AAAI AIA AAA 


ee ee a ee a a a eB a ed ad ad a dd ddd td = I EO OOO OOOO OOOOOCOOCOOOCOOOCOOCOOO 


1 
1 
_DUSREPLACE_LBN: : 
1 HIRT_SUBSAVE 3; Save callers return point on SUBSTACK. 
50 OO1C*'CF oD re! MOVL HIRTSL_SAVDCDRP RO ; RO => original CDRP. 
50 1C AO OD 16 MOVL  CDRPSL“MSG_BUF(RO),RO : RO => END PACKET. 
1¢ AO OD 1 MOVL  MSCPSLIFRST_BAD(ROS,- ; Indicate which LBN we are 
0018'CF 18 HIRTSL_LBN : fixing on this unit. 
OOOA'CF 01 #480 1 MOVW #SS$_NORMAL, - : Initialize worst case 1/0 status. 
p HIRTSW_1OWORST 
§ 3; Invalidate contents of incore scratch pages. 
4 ASSUME arerey PGOCNTNT+2 EQ HIRTSW_PGICNTNT 
OO4C'CF O01 CE ? 5 MNEGL #1,HIRTSW_PGOCNTNT ; Invalidate pages 0 and 1. 
4 $ ASSUME miertey PG2CNTNT#2 EQ HIRTSW_PGSCNINT 
0OSO'CF O01 CE ? 8 MNEGL #1,HIRTSW_PG2CNTNT : Invalidate pages 2 and 3. 
Hat 
4 ALLOC_MSG_BUF 3; Allocate a send credit. 
03 50 =2«B 4 2 BLBS ~ RO 10S : Branch around 4 successful alloc. 
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eplace a failing block 5-SEP-1984 DRIVER. SRCJDUHIRT.MAR; 1 


108: BRW REPLACE _CONNECT_FAILURE ; If we had an allocation failure branch, 


STEP 4 of replacement algorithm. 

We clear (zero) a sector sized buffer, then read the current 
contents of the bad block into the buffer. The buffer is cleared first 
for the rare case when no data can be transferred (such as a valid sync 
pattern is not detected). The read is performed with error recovery and 
error correction enabled. In addition to saving the data, we 
remember whether or not the read succeeded. The saved data is 
considered valid if the read succeeded, or invalid if it did not. 


; First we zero out the buffer to receive the contents of the failing block. 


PUSHR #*M<R2,R3,R4,R5> ; Save registers. 
. 6.7 - ; Clear page 1 prior to read. 
aHiRf$i’PAGETPTR 


POPR #°M<R2,R3,R4,R5> ; Restore registers. 
3; Step 4 continued. Prepare the CDRP with SVAPTE, BOFF, and BCNT of page 1 


3 (receiving field for upcoming read) so as to facilitate mapping of 
; this region. 
MOVL ; Pass page to map to subroutine. 


#1,R0 
BSBW MAP_PAGE : Map page 1. 
3; Step 4 continued. Prepare the MSCP packet to read failing block into page 1. 


BSBW FILL_RCT_PACKET Subroutine that fills most fields in 
MSCP pocket. Returns R2=>MSCP packet. 
MOVB #MSCPSK_OP_READ,- Copy t 


e READ opcode, field not filled 
MSCP$B_OPCODE(R2) by above subroutine 
MOVL  HIRTSL“LBN,- 

MSCPSL_LBN(R2) 


And also the LON of the bad block. 
SEND_MSCP_MSG ; Send message to the MSCP server. 


BBC #MSCPSV_EF EPL OG 65 ; Test for error log message generated 
mscPse FLAGS (R2),15$ 3 _and branch around if not. 
BISW #HIRTSA_ERLOGIP,- : Else remember that error log messages 
158 HIRTSW_ST ; Have been generated. 
UNMAP ; Release mapping resources. 
CLRL CORPS$L_LBUFH_AD(RS) 3; Show no mapping resources allocated. 


MOVL CORPSL_MSG_BOF(RS),R2 ; Refresh R2 after unmap. 


3; Remember status of read of failing block so as to be able to write it later 
3 with or without the forced error flag. 


BICW s“#HIRTSM FE WIA TSY_STS : Initialize bit. 
= 


IF _MSCP SUCCESS, Ehen : Branch if READ succeeded. 
BISW  s*#HIRTSM_FE,HIRTSW_STS ; Set bit if read failed. 


; Step 5. 


CLAP ERENT FOR We Disk 16-SEP-1984 90:38:38 VER Macro V04-00 Page 3, 
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Replace a failing biock 5-SEP-1984 $8:78:33 YORIVeR. Sac ToUMERT MAR: 1 oe 93, 


Record the data obtained when the bad block was read Gur'tng tse 4 in 
ector 1 of each RCT copy. If the data cannot be successfully recorded 
n the RCT, report fhe error to the error log and go to step 8. Note 

that the Multi-wr fe algorithm used to record the data in sector 1 uses 

write-compare operat 


V04~000 DUSREPLACE” 


SoS 


ons to guarantee that the data is successfully 


10$: 
50 TSL_PAGEOPTR,RO ; RO => sector 0 in memory. 
3; Copy bad block's LBN to RCT sector 


L_LBN,- 
$._CBN(RO) : 0 copy in memory. 
o_O) -ACTSM_FLAGS (RO) ; Set bit to signal phase 1. 


0024 'CF 
OO18"CF D 
Oc AO 


Soanaaow 
SPW ONO VNNNOOOM PS vwy\S 


08 AO 8000 8F As 
AA : Clear bit to signal not phase 2 


= 
o 
< 
ce 
-—-S2 wrt ww 


| 
; On failure goto step 18. | 
| 


T 

IR 
IR 
cT 
RC 
RC 
RC 
RC 
cT 
“# 


M_BR- ; clear bad RBN flag. 
: FE,- : and also clear force error before 
08 AO 6080 8F RCTSW_FLAGS (RO) : testing for valid data. 
OOOE ‘CF 2. €1 BBC $s Sint FE, = : See if original data is valid. 
6 HIRT$SW_STS, 20S 
08 AO 0080 8F AB BISW #RCTSM_FE, - : Set force error if appropriate. 


RCT$W_FLAGS (RO) 

20$: 
: Rewrite page 0. 

Go to rewrite sector 0. 
LBS implies successful rewrite. 


99 
99 
9 4 
9 5 recorded. 
9 $ 
39 3 STEPS | 
99 35 : 
44 a} ; Write contents of page 1 to sector 1 of each RCT copy. 
50 1 00 33 ¢ MOVL #1,R0 ; Pass sector and page number to routine, 
O04E ‘CF 0 60 H' Og MOVW RO, HIRTSW_PGICNTNT ; Indicate that page 1 contains RCT sector | 
Py e | 
0565 3 Al 5 BSBW WRITE _RCT_BLOCK ; Call internal subroutine to write. 
0B 50 ~=«C¢CE AS 36 BLBS RO, STEP6 ; LBS implies successful write to at 
A? 0 HIR_ERROR - ; Signal HIR error. 
A? 08 steps}. type=WRITE | 
0434 «31 AF % BRW STEP18 3; And branch to step 18. 
38 11 ; Step 6. Record bad block's LBN, whether or not the saved data is valid and | 
038 \¢ : the fact that we are now in phase 1 of replacement in sector 0 of each 
tr 13; RCT copy. This means that we read sector 0 modify it and 
38 14; then rewrite the updated sector to each RCT copy. If we cannot 
b38 15 ; read ony sector 0 successfully, we go to step 18. If we gennot 
bee 1 3 successfully write at least one sector 0, we go to step 17. 
o38 18 STEP6: 
50 7C 038 1 CLRQ RO ; Prepare to read sector #0 into page #0. 
0384 0 3 We pass the page number in RO an 
tor 1 3 the sector number in R1. 
060c 30 4 5 BSBW Reap RCT_BLOCK : Call to read RCT block. 
0B 50 =o«EB 7 4 BLBS RO, 108 : LBS implies successful read. 
5 HIR_ERROR - ; Signal HIR error. 
§ te 18° type=READ 
0421 +31 ; BR EP1 
0 
4 
i 
40 
ry. 
23 
44 
45 
46 
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HIR_ERROR - ; Signal HIR error. 
stepsg. type=WRITE 
BRW STEP1 ; And go to step 17. 


| 
| 
TEP7. 
Write and read gous porseres on the suspected bad block to determine 
| 


~ 


whether or not n fact a bad block. 

o to step if the test patterns fail 

ndicating that the he bs is indeed bad. Continue with step 8 if the 
test patterns succeed, indicating that the block may be good. The test 
patterns fail if either the block is again reported as a bad block or if 
the test patterns cannot be written and read back correctly. 


STEP7: 
52 O02C'CF MOVL HIRTSL_PAGE2PTR,R2 ; R2 => target page. 
51 B6DBCB6D 8F MOVL atest PATTERN, Ri ; Get test pattern to write to bad block. 
50 80 8F ene MOVZBL #512/%,R0 ; Loop counter set to # longwords in block. 
82 1 : MOVL R1,(R2)+ 3; Copy test pattern to page 2. 
Fa 80 SoeetR RO tas 4 4 _ 
50 02 


0694 


° 3; Loop thru page. 


| 
MOVL #2,R0 3; Pass page to map to subroutine. | 
BSBW MAP_PAGE : Call to map page 2. 
} 
| 
} 
| 
| 
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; Call subroutine that recycles current END PACKET, recycles current RSPID and 
3 fills in most relevant data in the MSCP packet. 


BSBW BUILD_RCT_PACKET ; Build a packet to transfer mapped 
3 page to random LBN. 


EQ MSCP$B_OPCODE+2 
E- 3; FILL in field not prepared by 
: BUILD_RCT_PACKET. 


Uw 
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SSNS SSDP PAPA AAA A MAI & & 


F 
07 
08 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ASSUME MSCPSW_ MODIFI 
08 A2 43000022 8F MOVL f OP _W 


0 

080 8F 

OOE * CF 

ec AS 

52 C AS 


4 
4 


'MSCP 
!MSCPSM_M 
MSCP$B_OPCODE 


MOVL HIRTSL_LBN,- : Fill_in field filled in incorrectly 
MSCPSL-LBN(R2) ; by BUILD_RCT_PACKET. 
SEND_MSCP_MSG ; Send message fo the MSCP server. 


BBC #ASCPSV_EF cALOG.s ; Test for error log nessage generated 
MSCP$B_PLAGS(R2),15$ 3: and branch around if not. 
#HIRTSA_ERLOGIP,=- : Else remember that error log messages 
HIRTSU_STS ; Have been generated. 


> 


CLRL © CORPSL_LBUFH_AD(RS) : And show deallocation was done. 
MOVL CORPSL-MSG _BOF(RS),R2 ; Refresh R2 => END PACKET after unmap. 
IF_MSCP SUCCESS, then=30$ ; Branch if WRITE successful. 


BRW STEP ; Proceed to next step of replacement. 
BBS #ASCPSV_EF _BBLKR,- ; If bad block reported again on write, 


MSCPSB_FLAGS(R2).20$ |; then branch back to proceed with 
; replacement. 


; If write no good, give up resources. 
hat uf 
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Clear page to receive test pattern written block. 


18 
44F 1 § 
44F 1 PUSHR #0, fo we Ree R5> 3; Save registers. 
0200 8F O00 FE AF Hi Ta 451 1 8 ; Clear peee 5 prior to read. 
002¢* DF 459 1 ite ‘Piet tere 
C BA r : ! 19 POPR auint fk R5> ; Restore registers. 
45— 1 1§ Call subroutine that recycles current END PACKET, _recvetes current RSPID and 
i3e ! i ; fills in most relevant data in the MSCP packet. 
50 0 1315 MOVL #2,R0 3; Pass page to map to subroutine. | 
064 39 tel 16 BSBU MAP PAGE S Coll tovmen pe age 2. | 
EE 0 rec) 1 ! BSBW BUICD_RCT_PACKET : Build MSCP pec et to transfer page 2 
rh 1 i§ ASSUME MSCPSW pe eice EQ MSCPSB OPCODE+2 | 
08 A2 43000021 BF 00 0467 1320 MOVL  #MSCPSR_OP_READ- FILL in field not prepared by | 
rte ! 1 SASPSR fo. “SECO - : BUILD_RCT_PACKET. 
46F 1 § MSCPSM-MD-SEREC> @ 16>, - 
ree : ¢ mscPS6. OPTODE (R2) | 
0018'CF DO O46F 1 § MOVL HIRTSL_LBN 3 Fill in ites¢ pie tee in incorrectly 
1C A2 473 1 MSCPSL “LBN(R2) ; by BUILD_RCT_PACKET. 
4 : 3 SEND_MSCP_MSG : Send message fo the MSCP server. 
€1 be3 1330 BBC #MSCPSV_EF_ERLOG,- ; Test for error log mqssage generated 
07 09 A2 47A 1331 MSCPSB dine »,45$ 3: and branch aroun 
0080 8 AB 0470 1 $ BISW #HIRTSA_ERLOGIP,=- 3 Else remember that error log messages 
OOOE * CF ° 1 : 2 ese HIRTSW "STS 3; Have been generated. 
484 1335 ; UNMAP ; Give up MAP resources. | 
2C AS DS 0487 1 § CLRL CORPSL_LBUFH AD(R5) ; And show that deallocation was done. 
52 1¢ aS 00 rs \ MOVL CORPSL_MSG_BOF(R5),R2 ; Refresh R2 => END PACKET after unmap. 
4 1 5 IF _MSCP SUCCESS, then=60$ ; Branch if WRITE successful. | 
494 1340 50S: 
0067 + 31 $28 ' * ane BRW STEP9 ; On any error, goto step 9. 
07 £0 bc97 1308 * «= as ~—samscPSv_eF_eaLKR.- : If bad block reported on read, | 
FB 09 A2 99 1344 MSCP$B_FLAGS(R2) ,50$ : then branch back to proceed with 
9C 1345 ; replacement of same. 
52 O02C'CF 4 49C 1 £6 MOVL HIRTSL 45 fy R2 3; R2 => target page. 
51 BgpBCB8p i At 134 MOVL isan Pal JRi 3; Test pattern to compare to bad block 
0 0 &F A ry; : rt} 708 MOVZBL 3; Loop counter set to # longwords in block. | 
82 51 D1 QO4aAc 1 9 ( CMPL RI sit ; fonpere est pattern to page 2. 
3 ig AF 1 BNEQ 3 On any ¢ screpancy, branch. 
F850 «OF .) ! § SOBGTR RO,70$ ; Loop thru page. | 
484 1354 : STEPS. 
484 13555 ; We write the saved data back out to the beg block using 8 9 
4B4 1 § $ error modi : ) gration. The write-compare $ per toreed with the force 
B4 1 : error’ modifier if and only if the goved. Cote s invalid. Go to step 
B4 1 8 : +f the write-compare ote succeeds AND the block is no longer reported as 
B4 1 3; a bad block == the original problem was r * eransient. The write-com ore 
484 1360 ; succeeds if no error iZ detected and the saved data is valid or if only a 
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} ; 3; forced error is detected and the saved data is invalid. 
1 oO 
! : STEPB: 
1 $6 ; Try to write original data out to block originally reported as bad since 
! 3 error now appears to have been transient. 
1 § MOVL #1,R0 ; Data from bad block is in page 1. 
1 9 BSBW MAP PAGE : Map page 1. 
! 4 BSBW BUICD_RCT_PACKET : Recycle etc., and fill in packet. 
137 ASSUME MSCPSW_MODIFIER EQ MSCP$B_OPCODE+2 
1374 MOVL #MSCPSR_OP_WRITE- : FILL in field not prepared by 
1375 '<MSCPSA_MD COMPa16>,- ; BUILD_RCT_PACKET. 
! MSCP$B_OPCOBE (R2) 
137 BBC s“*#HIRTSV_FE, - : See if original data is valid. 
137 HIRTSW_STS, 10$ 
1380 BISW #MSCPSA_MD_ERROR, - : Set force error modifier if 
81 an MSCPSW_MODIFIER(R2) : original data is invalid. 
1 HY j MOVL HIRTSL_LBN,- ; Fill_in field filled in incorrectly 
1384 MSCPSL-LBN(R2) ; by BUILD_RCT_PACKET. 
! ae SEND _MSCP_MSG 3 Send message fo the MSCP server. 
A 1 ; BBC #ASCPSV_EF _ERLOG,- ; Test for error lo nessage generated 
1388 MSCP$B_FLAGS(R2),15$ : and branch around if not. 
F 1389 BISW #HIRTSA_ERLOGIP,- : Else remember that error log messages 
; : 3 iss HIRTSW_STS 3; Have been generated. 
8 139 ; UNMAP : If write no good. ive up resources. 
139 CLRL CORPSL_LBUFH_AD(R5) 3; And show that deallocation was done. 
6 ! 3 MOVL CORPSL_MSG_BOF(R5S),.R2 ; Refresh R2 => END PACKET after unmap. 
139 IF _MSCP FAILURE, then=STEP9 :; Branch if problem not transient. 
i} 139 Bes #MSCPSV BBLKR,- : If bad block reported on write, 
139 MSCPSB_FLAGS(R2),STEP9 ; then branch ahead to proceed with 
8 139 3; replacement of same. 
: 1209 BRW STEP13 : Branch if error was transient. 
— 14 § 3 STEPS. 
E 1405 ; We scan the RCT and determine what new RBN the bad block 
—E 1404 ; should be replaced with, whether or not the the bad block has been 
—E 1405 ; previquety replaced, and (if it has previously been replaced) the bad 
—E 14 $ : lock’s old RBN. The RCT is NOT updated at this time. If the RCT scan 
; \° ; fails, we report the error to the error log and go to step 16. 
Hee 
E 1249 STEP9: 
: 1616 BSBW seaace RCT ; Routine to search the RCT for an RBN. 
141 BLBS RO, STEP ; LBC implies success, so goto step 10. 
4 1414 BS sTauiRtsy RCTF tL. - 3; Check tor RCTFULL error and 
9 1415 HIRTSW_STS, 91 ; branch if that is the problem. 
A 1018 HIR_ERROR - ; Else, signal HIR READ error. 
A 141 step=9, type=READ 


ee 
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voa-000 DUSREPLACE_LBN = Replace a failing block aad ety 7 8:33:35 LORIVER. SREIDUMIRT. MARS 1 " (15) | Vv 
OF 11 12 141 BRB 980$ ; Join common branch to step 16. | 
16 4019 9108:  RIB_erron’e : | 
14 1420 srep2 ahteerncrut ; Signal HIR RCTFULL error. | 
OOOA'CF 216C BF B80 33 1? 1 MOVW #s¥ BA sf PR ; aes supply a worst case error 
0250 = 2 1? 980$: BRW STEP16— ; Go to step 16 after any failure. 
5 é 1425 ; STEP10. 
5 14 § 3; Record the new RBN, whether or not bad block has been previously 
526 1427 ; replaced, the bad block's old Re tit it *. been pede ie replaced) 
526 14 8 ; ~s the fact that we ai ~y phase ¢ of bad block replacement in sector 6 
2 2 1429 ; in each RCT copy. CT must be updated without reading sector 0, 
1450 ; nstead using the copy by sector 0 last read from or written to the RCT. 
526 1431 ; the a cannot be updated, report the error to the error log and go to 
526 14 § 3 bien 
aera | 
526 14 § STEP10: 
50 00246'CF 00 0526 14 MOVL HIRTSL_PAGEOPTR,RO 3 RO => Page 0. 
0058'CF DO 0528 1438 MOVL HIRTSL_RBN 3 Update nen to sector 0 copy in 
10 A OS2F 1439 RCTSL_RBN(RO) : in memor 
OOOE'CF 0 E1 0531 1440 BBC s*#HIRTS$SV_MATCH, - ; See if we Thad 8 failing RBN, and 
9 § 1441 HIRTS$W_STS,10$ : _if NOT, branch around. 
2000 8F AB 05 178 BISW #RCTSM_BR,- > Indicate failing RBN in sector 0 
08 A 0538 144 RCTSW_FLAGS (RO) : flags word. 
OOSC’CF DO 0530 1444 MOVL HIRTSC_MATCHRBN,- ; And also indicate the failing RBN. 
14 AO 0541 1445 bas RCTSL_BAD_RBN(RO) | 
8000 8F AA $303 1469 BICW #RCTSM_RP1 ; Show that we are php ton Rg phase 1 | 
08 AO 0547 1448 RCT$W_FLAGS(RO) ; of replacement erageen ng 
4000 8F AB 0549 1449 BISW TSA_RP ; And entering phase 2. 
08 AO 0540 1450 RCTSW_ FLAGS (RO) | 
50 4 034 1036 CLRL RO ; Rewrite page 0. 
0385 Q 0551 145 BSBW =: WRITE RCT_BLOCK ; Go write the sector. 
0B 50 sé 8328 1454 BLBS RO,STEP11~ 5 if success, go to next step. 
557 1455 HIR_ERROR - ; Signal HIR error. | 
0557 1456 steps) =10, type=WRITE 
0221 31 OSSF 1457 BRW :; Branch on failure. 
303 1286 ; stertt. | 
562 1460 ; We update the RCT to indicate the bad block has bee 
26 1461 ; replaced with the new RBN, and a the old RBN (if my is mamabie, If 
6 1096 3. 6Uthis reqytres updat ng two blocks the RCT, then bee blocks must be 
562 1463; read before either is written. block cannot be read successfully, 
562 1464 ; report the error to the error Log oe go to step 16. If a block cannot 
2° 1002 3 be written successfully, report the error to one error log and go to step 
56 1469 ; 
885 1469 
56 1470 STEP11 
50 0058'CF 7 OO EF 62 147 ExTZv #0 gic Haare gin RO 3 Rg = offset in sector of RBN descriptor. 
51 O02C°CF 00 056 147 OVL HIR RTSL Base? PTR,R1 ; Rl => sector containing RBN descriptor. 
50 6140 ODE 286 1007 MOVAL (RI)CR ; RO => RBN descriptor. 


i 


waa) 
>> 
ono 


BLBS 
HIR ERROR = - 


Signal HIR error. 
stepe}t. type=READ 


o1cc—Ossé5$1 BRW Branch on failure. 


30$: 


52 O030°CF 00 HIRTSL_PAGE3PTR,R2 ; R2 => page with bad RBN descriptor. 
0S sii «0s BRB 50$ 3; Branch around. 
52 O02C°CF 00 ; MOVL HIRTSL_PAGE2PTR,R2 ; R2 => page with bad RBN descriptor. 


50$: 
50 OOSC*CF O07 QO EF 
6240 ODE 

0060'CF 60 DO 


60 40000000 8F 00 
OO2Cc'CF $2 
14 


EXTZV #007 au WIRTSL _MATCHRBN,RO; RO = offset of bad RBN descriptor. 
; Save Bad RBN descriptor in case 


MOVL (RO), CRO) «0 _BADRBND : 
; we have to restore due to failure. 
MOVL #RCTSM_UNUSABLE , (RO) ; Clear LBN and mark unusable bit in 


descr 
CMPL Re HIRTSL_PAGE2PTR 
60$ 


RO => bad RBN descriptor. 
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v04-000 DUSREPLACE_ - Replace a failing block 5-SEP-1984 88: 33: 8 LORIVER. SRC JDUHIRT.MAR; 1 ’ (15) v0 
0000000 8F C9 3 BISL3 #RCTSM_ALLOCATED,- ; Put LBN bein replaced into descriptor. | 
0018'CF 7 HIRTSL a (RO) : and or in ALLOCATED bit 
OoE'cr 04 ET O57 BBC saHLRT V.EMPTYPE, -  ; Branch if primary REN al location. 
60 10000000 c8 § 108: BISL #RCTSM-NONPRIME , (RO) 3 Indicate non prime allocation. 
OO0E CF 0 EO 0589 — sreuiatey MATCH, - : Branch if RCT search showed RBN failed. 
58E HIRTSU_STS, 208 | 
006 31 O58F BRW 60$ ; If NOT RBN failure, skip RBN 
23 08: ; descriptor update. | 
51 OOSC'CF F9 8F 78 059 " sASHL=—s« #=7, HIRTSL_MATCHRBN,R1 =; R1 = relative RCT block containing | 
59 3; bad RBN descri pe r. | 
51 9¢ co b2o¢ ADDL #2,R1 3; Add in sectors 
0050'CF 1 B61 059C CMPW R1,HIRTSW_PG2CNTNT 3; Page 2 contains RON’ eicrtouet of | 
OSA1 3 gs Locetabie ~ 3 maybe also | 
p24} : deucr? pele 
1B «13 aA BEQL 40$ : ES att ies Seek yg A Wee in same 
50 03 00 Tt MOVL #3,R0 ; sndlias e that we want to read into 
041A 30 Q5A6 BSBW REAR RCT_BLOCK : Read secter (R1) into page 3. 
50 +=«€8 0 3; If success, continue. 
0 
0 
0 
0 
0 
0 
0 
0 
0 


; See if Boh’ descriptors in same page. 
; EQL implies yes. Go do only 1 write. 
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Rewrite page 3 CrOJ. 

BSBW unite RCT_BLOCK Go write 

BLBS § If sens, continue. 

HIR_ERROR - Signal HIR error. 
STEPiS A type=WRITE 

BRW Branch on failure. 


60$: 
MOVL  #2,R0 
BSBW © WRITE_RCT_BLOCK 


Prepere to write page 2. 
e. 

BLBS RO,STEP12 
HIR_ERRO 


Go writ 
If success, goto next step. 
Signal HIR error. 


RNR HHH HMM 


BRU Branch on failure. 
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step=11, type=WRITE 
stepiS.6 


oo 
Soommnm 


Eee ES ER athe ara 3 Rite SAS BY RRR Fi Se Re Ba eas RD A EOE | be 


i A —_ — a 


A REPLACEMENT FOR We Disk 16-SEP- 1384 8: 38: 38 Yee Vek. ee 0 V04-00 Page ‘ 3 


Oyen HOST I 
v04-000 - Replace a faili a -SEP- DRIVER. SRE SDUHIRT.MAR; 1 
STEPI2. 

We use the REPLACE command to revector the bad block to 

chosen rep laceesnt block, then use the standar WRITE senent Ledéressed 


Lt saved data is_ invalid. 
hots. that oy REPLACE "command 7 ciety: verifies that a head or servo 
track failure has oe occurred arge numb , of aorones 
replacements. If the REPLACE command vee _ ; 4 step 15. if WRITE 
command fails, go to step 9 to re-scan CT for another RBN. Note 
that the current new RBN will Saas” the old RBN for this next pass. 
Either failure will a a} ready been reported to the error log. The 

WRITE command succeeds no error is detected and the saved data is 


f and onl 


valid or if only a forced error is detected and the saved data is 


PAAPSAOAASS FIEOOAPOSOAOASAAS rs 
Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


OOOOOOSSt GOOGGOOOOOCOOoo V 


TIATED 
CE_LBN 
9 1 
9 1 : 
9 1534 
3 188 
3 1839 
9 1 } 
9 1 
9 1540 
9 1541 
9 1 1: 
9 154 
3 Res 
9 1368 invalid. 
03 134 
9 1368 STEP12: 
09 1550 RECYCH -"56 6 Bur ; Recycle END PACKET into weno buffer. 
03 50 g8 Oc 1551 BLBS 3; LBS means allocation succ 
O19 i OF 1326 BRwW REPLACE. CONNECT_FAILURE ; Allocation failure means CONNECTION 
sd 133? $3 ; failure. 
0612 1555 INIT_MSCP_MSG ucb=(R3) : Initialize MSCP packet for REPLACE. 
0615 155 
0615 1389 ASSUME MSCPSW_MODIFIER Fa ss OPCODE+2 
dO pol? 1558 MOVL ” SCPSR_OP : n field not prepared by 
616 1559 '<MSCPSA_MDB EXPRS@16>, =: BUILD. "ACT PACKET. 
08 A2 80000014 8F 3218 1369 MSCPS$B_ OPCOBE (R2) 
OOOE'CF 04 €0 061D 1206 BBS s*#HIRTSV_EMPTYPE, - : See if primary or secondary RBN, 
04 06 ; 156 HIRTSW $18. 105 3 branch if secondary. 
01 AB 06 1564 BISW #MSCPSA_M ; Set primary modifier if 
OA A2 06 3 1365 tall MSCPSW "MODIFIER CR2) ; called for. 
OC A2 0058'CF i) 8e 7 1309 ‘ MOVL mints. RBN,MSCPSL_RBN(R2); Fill in special REPLACE field. 
0018'CF DO 0620 1568 MOVL HIRTSL_LBN,- 3: Fill in field filled in incorrectly 
1€ A2 631 1368 MSCPSL_ “LBN(R2) ;_ by BUILD_RCT_PACKET. 
636 1370 SEND_MSCP_MSG ; Send message to the MSCP server. 
05 €1 be $ 1326 BBC fay 2 EF ee ; Test for error lo aessage generated 
07 09 A2 os 130 B FLAGS(R2),15$ : and branch around if no 
0080 8F A8 1574 BISW BaiRTee ERLOGIP,=- ; Else remember that error log messages 
OOOE * CF ore 1303 +38 HIRTSW_STS ; Have been generated. 
64 1399 2 IF wr ope ess. then=20$ 3; Branch if REPLACE was successful. 
64 1378 HIR_E : Signal HIR error. 
648 157 atepel? type=REPFAIL 
00c4 31 63 0 a BRW 8 
50 Q1 $3 1 : " mOVL = #1, RO : Data from bad block is in page 1. 
04 é ; 36 1 BSBW = MAP_ PAGE : Map page 
3F ty | : BSBW BUICD_RCT_PACKET > Recycle etc., and fill in packet. 
eee 1 § ASSUME MSCPSW oe EQ MSCPSB DPCODE 9¢ 
D0 065¢ 1 MOVL #MSCPSR_OP_WRITE- 3; FILL in field not prepared by 
65D 1588 Teasc PSA OND COMP@16>,- ; BUILD_RCT_PACKET 


co 
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vO4=000 DUSREPLACE_LBN = Replace a failing block SEP | 984 00:18:38 UORIVER. SRCIDUMIRT.MAR; 1 . 5) | 
08 A2 40000022 8F 020 } $3 MSCP$B_OPCODE (R2) 
OOOE * CF 06 E1 os : 4 BBC 4 BTSy FESS ; See if original data is valid. 
OA A2 1000 BF AB eeh 1 38 BISW #MSCPSA_MD_ERROR, - 3; Set force error modifier if 
67 34 ons MSCPSW_MODTFIER(A2) : original data is invalid. 
0018'CF DO 0670 1 38 : MOVL HIRTSL_LBN,=- 3; Fill_in field filled in incorrectly 
1C A2 674 159 MSCPSL-LBN(R2) > by BUILD_RCT_PACKET. | 
0/6 ! 38 SEND _MSCP_MSG 3 Send message fo the MSCP server. 
05 €% 0679 1600 Bat #MSCPSV_EF_ERLOG,- ; Test for error log message generated 
07 09 A2 678 1801 SCP$B PEACE (ROS 1358 : _and branch around if not, . 
0080 8F AB O67E 16 § BISW #HIRTSA_ERLOGIP,=- ; Else remember that error log messages 
OOOE * CF ° 1983 358 HIRT$W_STS ; Have been generated. 
685 1808 ; UNMAP ; If write no good, give up resources. 
2C AS) «64 (0688 1606 CLRL CORPSL_LBUFH_AD(RS) ; And show that deallocation was done. | 
52 1¢ AS 00 Dear 193 MOVL CORPSL_MSG_BOF(R5),R2 ; Refresh R2 => END PACKET after unmap. 
peat 1808 IF_MSCP SUCCESS, then=STEP13 ; If WRITE successful go to step 13. 
0698 1611 ; ASSUME that the force data subcode is zero 
0 B1 0695 lol¢ CMPW #MSCPSK_ST_DATA,- ; See if data error with force error | 
OA A2 697 161 MSCPSW_STATUS (RO )e> ; subcode. 
OA 12 reas 1el8 BNEQ 50% ; If hOT, then branch to take action. 
OOOE'CF O02 £0 0698 1918 BBS s*#HIRTSV_FE, - ; To STEP13 if force error expected. | 
OF 6A0 161 HIRT$W_STS, STEP13 | 
6a 1618 sos, BUS-CHECK DISKCLASS, FATAL ; Shouldn't happen. 
6A5 1620 — HIR_ERROR - : Signal HIR error. | 
6A5 1621 stepale. type=WRITE | 
FEGE 31 ro 1 § BRW STEP9 : Following algorithm, goto step 9. | 
rr 1624 ; STEP13. 
680 1625 ; We update sector 0 of the RCT copies to indicate that we are no 
680 16 § ; longer in the middle of replacing a bad block. The RCT must be updated 
680 1627 ; without reading sector 0, instead using the copy of sector 0 last read | 
680 16 8 3: from or written to the RCT. If the_RCT cannot be updated, report the 
680 1629 ; error to the error log and go to step 17. 
ee0 1631 | 
1632 STEP13: | 
50 0024'CF 00 re 16 § Govt HIRTSL_PAGEOPTR,RO ; RO => page 0, which contains sector 0. 
AA 0685 1634 BICW #RCTSM_RPI1- : Reset flags in sector zero. We are 
1635 'RCTSM_RP2- : NOT in phase 1 nor in phase 2. 
1 $ 'RCTSM_BR- ; Also we clear Bad RBN flag and 
1 'RCTSM_FE,- : force error flag as well. 
08 AO £080 8F i : RCTSW_FLAGS (RO) 
1 9 : ASSUME RCTSL_RBN EQ RCTSL_LBN+4 
0¢ a0 7¢ 164 CLRQ RCTSL_LBN(RO) ; Zero out RBN and LBN. | 
4A 04 1ge$ CLRL RCTSL_BAD_R&N(RO) 3; Also clear BADRBN field. 
29 4 1644 CLRL RO ; Rewrite page 0 
024 0 1645 BSBY «= WRITE_RCT_BLOCK : Go write page into sector. 


I 
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DRIVER.SRCIJDUHIRT .MAR; 1 (15) 


5 
BLBS RO,STEP14 3; LBS is success. 
HIR_ERROR - ; Signal HIR error. 


STEP14. 
We set the success return code and return to our internal caller. 


steps], type=WRITE 
STEP17 ; After failure goto step 17. 


GP sete ee 


TEP14: 
| 


DEALLOC_MSG_BUF 
CLRL R1 ; Prepare to return ERLIP bit if set. 


1 04 : 
BBCC a euntey o °° ae ; Branch around if clear and clear if 
HIRTSW_STS,10$ 3 


0 Sef 


NIT 

LAC 

0B 50 «EB 3) 
: 

OOF 1 31 re 
604 

604 

604 

604 

604 

604 

604 

already set 


ao 


DB e °° 
A8 DF 108 BISwW #CORPSA_ERLIP,R1 ; Set bit in R1 so as to return to caller. | 
50 01 3X ; j MOVZWL S“#SS$_NORMAL ,RO ; Prepare to return status to caller. 
HIRT_SUBRE TURN ; Return to caller. 
| 


STEP15 - If here we sytiee to update the RCT (STEP11) or we failed in the 
REPLACE (STEP12). 

We restore the RCT to indicate that the new RBN is unallocated 

and usable and that the bad block is either not replaces or revectored to | 

the old RBN, whichever was it's original status. The RCT must be updated 

without reading any blocks from it, instead using the copies of the 

relevent blocks that were read from the RCT in step 11. Any errors are 

reported to the error log but otherwise ignored. 


PAAAAAAAAAAAAO 


NNN OF SFO HT 


STEP15_A: 


Here we failed to write the RCT block containing the Bad RBN only when 
this descriptor resided in a different RCT block than that of the 
selected RBN. Because of the way that STEP11 works the copy 

of the RCT Block is in page 3. 


oooo DOOODOOOCOoOoOooO 
PAA os 


PAAR AALAAAAAA AAA AAA AA AA AAA AA AAA AAAOA AD 4 


SOOCOOOOOOO O90 0000069 69 69 69 69 09 09 09 SI NINN SNS SNIP PAA AAA AAA MMMM E 


0030'CF MOVL WARTSL PAGE3PTR,R2 3 Re => copy of page 3 in memory. 
07 00 EXTZV #0,#7,RIRTSL_MATCHRBN,RO: RO = offset (Longword) of Bad RBN 
; descriptor in page 53. 
50 6240 MOVAL (R2)CROJ,RO ; RO => Bad RBN descriptor slot. 
60 9060 ' ct MOVL HIRTSL_BADRBND, (RO) ; Restore Bad RBN descriptor. 
0 03 MOVL : Prepare to try to rewrite page 3. 
gure BSBW write RCT_BLOCK ; Try to rewrite. 
08 50 BLBS RO, 90$ : Branch if WRITE succeeded. 
HIR_ERROR - ; Else, signal HIR error. 
stepe}5. type=WRITE 
6C 90$: BRB STEP16 ; Always go to step 16. 


STEP15_B: 


; If here we failed in the REPLACE operation or in updating the RCT block 
; containing the selected RBN descriptor. So we ery to restore the 
; RCT sector(s) that contained the RBN descriptor(s). If there wa 
: no Bad RBN, then we simply want to egetore the contents of page 
: to the sector indicated by HIRTSW_PG ay after clearing the 
: a 


RBN descriptor slot associated with the selected RBN. 


a ea ed dd ed dd = = dd te 


R929 SOD NA MAE WN 2 O OD NA UE WIN SO OD NAME AN 2 SO OD NA NEW 0 DOONAN EW OO ODO 


SSP A AA AAA AA AA AAAS O 


; We use the standard WRITE command (addressed to the bad block's 
; \LBN) to restore the saved qt, The write is performed with the ‘‘force 
3; error’ modifier if and only if the saved data is invalid. Any errors are 

3 reported to the error log ut otherwise ignored. 
$ 


TEP16: ’ 
MOVL #1,R0 ; Prepare to try to write original data 


HIRT HOST INITIATED REPLACEMENT FOR we bf DISK 1 “$ P=-1984 75 AX/VMS Macro V04-00 Page 
voe~000 DUSREPLACE_LBN = Replace a failing block 3Ep=198e 88: 73: 3 LORIVER. SRCIDUHIRT.MAR; 1 7 day 
OOOE "CF 03 717 7 3 BBC s*#HIRTSV marcn - ; If NO Bad RBN, branch ahead to 
4 ats 1g : RIRT wW_STS,20 3 restore only one descriptor. 
71D (17 $ 3; If there was a Bad RBN, and its descriptor happened to reside in the 
71D 1707 ; same RCT sector as the descriptor of the selected RBN, then on first 
710 #17 8 $ first restore the old re ny A £,5he Bad RBN descriptor then 
71D 1709 ; if this descriptor ree! Me ifferent sector than the selected 
710 V9 3 RBN’s descr psor. we rewr fe this ther sector first. Note the 
71D «#1711 ; other sector is contained in page 5 while the selected 
at ar : RBN's descriptor is always in page 2. 
52. 002C'CF 71D 1716 MOVL WIBTSL PAGE2PTR,R2 : R2 => copy of page 2. 
51 oose® CF FO BF "3 ? ; 1715 ASHL 7 gHIRTSL _MATCHRBN,R1 : Calculate RCT Sector’ # for Bad RBN. 
51 C 7 at ADDL fA 3; Add in RCT sectors 0 and 1. 
0050'CF 72C «(171 CMPW . ghintsu. PG2CNTNT : See if in same sector. | 
1 4 1 rig BEQL ; EQL implies yes. 
52 O0O30'CF 00 \e Y 108 MOVL HIRTSL_PAGESPTR,R2 3; R2 => copy of page 3. | 
50 OOSC'CF «07 «00 EF 0738 1768 " —-EXTZV. #0,47,HIRTSL_MATCHRBN,RO; RO = offset (Longword) of Bad REN | 
73F 617 ; _descriptor in page 2 or 3. 
50 6240 43 73F 1724 MOVAL HIRTEL 8 : RO => Bad RBN dentrioter slot. 
60 ope tt 1) oH 1725 MOVL HIRT Py a (RO) $ oie Bad RBN descriptor. 
OO2c’CF 52 D1 0748 17 6 CMPL HIRT L_PAGESPTR : See if we have to do both pages. 
11. 13 «(0740 «(17 BEQL 2 - 3 FOL implies NO, only page 2. 
50 03 8 74F 61728 MOVL 3; Prepare to try to rewrite page 3. 
0184 13¢ 1729 BSBW wait RCT_BLOCK : Try to rewrite. 
08 50 €8 0755 1730 BL.BS : Branch if WRITE succeeded. 
P38 1731 HIR_ERROR ; Else, signal HIR error. 
758 #17 3 step=15, type=WRITE 
rt 208 | 
760 1735 ; Here we clear the selected RBN's descriptor and rewrite the sector from | 
Fey p89 | ana & | 
52 O0O2C°CF 00 0760 1738 VL HIRTSL_PAGE2PTR,R2 ; R2 => page 2 in memor y: 
50 o00S8'CF 07 00 EF 2 144 4 EXTZvV #0,47,RAIRTSL _RBN, RO : ngescriptor (Longworg of selected RBN 
Py} . | 
50 6240 DE O76C 1741 MOVAL — (R2CROI,RO : RO => RBN descriptor slot 
60 04 oe 1g CLRL (RO) : he to available RBN y rey | 
2 72 1744 VL #2,R0 3 Prepare to tr to rewrite page 2. 
ri 33 75 «(1745 BSBW WRITE_RCT BLOCK : try to rewr 4 _ 
E 78 (1 § BLBS RO, STEP16 : Branch if URITE succeeded. 
78 1 HIR_ERROR - 3; Else, signal WIR error. 
1 8 stepel5. type=WRITE 
' 3 3 coee- BRB STEP16 ; Always continue with step 16. 
1751 ; STEP16. 
ig 
1 . 
1754 
! 5 
Hi 
1385 


50 601 «0 
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7 1 3; _to bad block that we coutd not replace. 
O326 38 7? é 178 BSBW MAP_PAGE 3 nap page 1° . 
C : 4 BSBwW BUICD_RCT_PACKET ; Build ASCP packet. 
78C 158i ASSUME MSCPS$W_MODIFIER EQ MSCP$B_OPCODE+2 
DO O78C 1765 MOVL #MSCPSR_OP eg - ; Put Tn write opcode. 
08 A 7 1766 MSCPSB BPCODE (R § 
OOOE * CF 06 e1 oe 178 BBC ead, e¥eF bs ; Branch around if NO forced error. 
1000 8F AB 0796 1789 BISW #MSCPSA_MD_ERROR,- 3 Set forced error bit modifier on. 
OA A2 9A 2 ao MSCPSW_AODIFIER(R2) 
nad} dO ee Vee MOVL See Oe eo) 3; Indicate LBN to write. 
7A2 1776 SEND_MSCP_MSG ~ 3; Send pegeage to the MSCP server. 
7A5 (1775 IF MSCP SOCCESS, then=12$ ; Branch if WRITE succeeded. 
7AB 1776 HIR_ERROR - z Else, signal HIR error. 
7 177 stopeie’ sypeeveite 
07 09 a2 «(05~—CEW=«sCO078 1078 128: BBC #MSCPSV_EF_ERLOG, - ; Test for error log message generated 
788 177 MSCP$B_FLAGS(R2),15$ 3 _and branch around if not. 
0080 8F <A8 0788 1780 BISW #HIRTSA_ERLOGIP,- ; Else remember that error log messages 
OOOE ‘CF yet 4 1 - HIRTSW_STS ; Have been generated. 
O7BF 17 : UNMAP 
LRL DRPSL_LBUFH_A ; Indicate no mapping resources. 
2C AS (4 145 Vy : CLR CORPSL_LBUF D(RS) Indi i 
rte 17 § ; STEP17. 
7C5 1787 ; We update sector 0 of the RCT copies to indicate that it is no 
7¢c5 «(17 8 3 longer in the middle of replacing a bad block. The RCT must be updated 
7CS 1789 ; without reading sector 0, instead using the copy of sector 0 last read 
7C5 1790 ; from or written to the RCT. Any errors are reported to the error log but 
Bree 1791 ; otherwise ignored. 
7¢5 16 3 
7¢5 «(179 
re 1598 STEP17 
50 0024'°CF DO O7C5 1796 MOVL HIRTSL_PAGEOPTR,RO ; RO => page 0, which contains sector 0. 
AA O7CA 1797 BICw #RCTSM_RPI- : Reset flags in sector zero. We are 
7CB «1798 'RCTSM_RP2- ; NOT in phase 1 nor in phase 2. 
7CB 1799 'RCTSM_BR- ; Also we clear Bad RBN flag and 
7CB 1800 'RCTSM_FE,- : force error flag as well. 
08 AO £080 8F z¢ 01 RCTS$W_FLAGS (RO) 
700 1 08 3 ASSUME RCTSL_ RCTSL_LBN+4 
oc rs 7C 0700 1804 CLRQ RCTSL_LBN(RO) ; Zero out RBN and LBN. 
146A 04 As ! 5 CLRL RCTSL_BAD_RBN(RO) 3; Also clear BADRBN field. 
0 Be 708 1 3 CLRL RO ; Rewrite page 0. 
gr 3 7 1 8 BSBW WRITE_RCT BLOCK ; Go write page into sector. 
0 E 708 1 BLBS RO, STEP18 : Branch if WRITE successful. 
7DE 1 9 HIR_ERROR - ; Else, signal HIR error. 
4 : ! step=17, type=WRITE. 
7&6 1 18 3; STEP18. 
ree ! 3 3; We set the failure return code and return to our internal caller. 
7E6 1816 ° 


Ee 


eee ee er et erie ene 


} 
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é i he penx DEALLOC MSG_BUF 
1 be 7 181 CL Lm A ; Prepare to return ERLOGIP bit if set. | 
OOOE ‘CF 4 E 79 ! o eulerey. <1 Webel 3 ce oreune if clear and clear if 
; _alre 
51 4 AB 4a} \ § 108: BISW TCDRPSA “ERLIP, R1 : Set se'43 in Ri so as to return to caller. 
50 e'¢f 6 7F& 61826 MOVZWL WARTS 10ST,RO 3; Indicate failure to caller. 
0 3 7F9 «1825 BLBC : Branch if error already found. 
50 a'ce §63¢ 4a 1 F MOVZWL weartee 1OWORST, RG ; Else, get worst case 1/0 status. 
! 15$: HIRT WSUBRE TURN 
1 REPLACE_CONNECT_FAILURE: 3; Come here if CONNECTION failure 
: 3; anywhere in REPLACE logic. 
F7F2° 31 0B 1832 BRW DUTUSKILL_THIS_THREAD ; Branch to kill this thread. 
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-SBTTL DUSONLINE_COMPLETE = Perform HIRT operations after ONLINE 


+ 
+ 


DUSONLINE_COMPLETE = Perform HIRT operations after ONLINE 

Functional Description: 
Complete bringing a unit ONLINE when it is attached to a controller 
that require HOST INITIATED dynamic bad block reps Scenery Thi 
routine reads sector zero of the RCT to see if t 
in the middle of bad block replacement. If so the replacement is 
completed. 

Inputs: 


R3 uce address for the unit that being brought ONLINE 
RS HIRT permanent CDRP address 


Implicit Inputs: 
HIRTSL_SAVDCORP CORP that describes the current operation 


HIRT is owned by the current thread 
HIRT SUBSTACK is reset 


Outputs: 
RO Replacement status 
R1 sort tae for CORPSV_ERLIP 
R3 UCB address (unchanged) 


R2, R4, RS destroyed. 
ALC other registers preserved. 


SIDED DEDEDE DDD DDE TTT E™ Be BS BE BS BE EAI 


PEO OODNA UNE WN 9 O OD NAUSEA 9 OD NA NEA $$ O ODNOAUE 


DUSONL INE _COMPLETE: : 


? ASSUME HIRTSW_PG2CNINT+2 HIRTSW_PGSCNTINT 


Here we want to read sector 0 of the RCT into page 0 so as to be able to 
determine whether or not we went down in the middle of Dynamic Bad 
Block replacement. 

Note we have NOT allocated a Message Buffer. READ_RCT_BLOCK (via a call 

to BUILD_RCT_PACKET) will do it for us. 


9.00 09.0909.09 09 6D 00 Gd 09 Gd 0d G9 Cd CD C9 Cd OD Cd GD C9 GD OS CD OD OD AD Cd Od Od Cd Gd Cd CD Cd CD CD Cd OD GD C9 CD Cd 0D. 0D C0 CD CD CD C9. CD CD CD CDODCD 


D WE EHP IM INIMM IP IAIMNIS GS JS GOGO TT TET CT FTI ETE ET CTR ETI TR CTU CTU ETECTUCTU ETE CTU ETR CTR CTUETU CTU CTR CTR TRCTUCTUCTUCTUCTOCTOCTICWRETIETUCTOOTS 


OO4C'CF O01 CE 
0OSO'cF O01 CE 
50. 67 

O196 3 

08 5 E 


a 


RIPORIPIPIPINIMAIMINING 


SOWONOUS WO 


CLRO RO 3; Indicate read sector 0 (R1) into 
3 _page . 

BSBW READ RCT_BLOCK : Read indicated sector into page. 

BLBS RO, 208 3 LBS means successful read. 

HIR_ERROR - ; Signal HIR error. 


3 
e disk went offline 


7 
: HIRT_SUBSAVE 3; Save return point on SUBSTACK. 
1 7 ASSUME HIRTSW_PGOCNINT+2 EQ HIRTSW_PGICNINT 
: 4 MNEGL #1,HIRTSW_PGOCNTNT : Invalidate contents of pages 0 and 1. 
1 
1 


EQ 
7 MNEGL #1,HIRTSW_PG2CNINT ; Invalidate contents of pages 2 and 3. 


4 


— 
z 
ra 


a 


MENT FOR THE disk 
erform HIRT A. ie 


Pal9be Sor a8o EORIVER eRe ToUNGRToRAR:1 eee Gf 


<2 


B2A «(189 stops! penettins - 
BCA «(189 type=R 
FFBI : 189 BRwW stEbia i; Goto deallocate and set RCT_FAILURE 
: } 3¢ 208 status code before returning. 
189 
: 1 33 ; Here we do a write of page 0 to sector 0 (all copies) to insure that we 
: 1 38 3 did not crash in the middle of an update of sector 0 and thereby 
! 99 ; ai a set of inconsistent copies. 
50 : 19 ? ; Rewrite page 0. | 
oor B37. (19 § SSBu lh RCT_BLOCK t Write indicated sector from page. 
0B 50 BSA (19 BLBS ; LBS means successful write. 
BSD 61904 HIR_ERR 3; Signal HIR error. 
BSD 13 5 steps?, ty func=ONLINE, - 
e= 
FFIE B45 19 8 BRwW step Yee 3 Goto deallocate and set RCT_FAILURE | 
c? 1338 308 ' ; status code before returning. 
5 : => sector n memory. 
50 0024'CF 48 1910 MOVL HIRTSL =PASEOPTR. RO RO 0 i Y 
9 13} BITW voc ten.e 49 : —. roe : Howe 1 of replacement 
2 . ad or 
08 AO C000 8F B4 1918 RCTSW_FLAGS(RO) 
18 B55 1914 BNEQ 40$ ; NEQ ia that we were in the 
B55 61915 3; middle of replacement. 
B5 1318 cre Aae _MSG_BUF 3: Else we deallocate the buffe 
51 858 191 CLR “R1 : Prepare to return ERLOGIP bit if set. 
OOOE'CF 07 BSA 61918 Bact ad eb VeERLQGIP. ~ 3 Branch around if clear and clear if | 
83 BSF 1919 HIRTSW : already s 
51 4 83 1° y 355 BISW PCDRPSA ERPS RI 3; Set bit p *hi so as to return to caller. 
50 601 B63 19 § MOVZWL #SS$_NORMAL ,RO ; deallocate the RSPID, and we return 
B66 19 : to caller with a success status. 
$6 1° : 408 HIRT_SUBRE TURN 3; Return. 
06 AO B70 (19 $ MOVL RCTSL_LBN(RO),- 3; Restore LBN to replace to HIRT. 
18°CF B73 («19 HIRTSC_LBN 
0 4 578 19 3 MOVL #71,R0 3; Read into page 1. 
51 1 B79. «19 MOVL #1,R1 3: From RCT sector 1. 
0144 B7C «1930 BSB t0,508 RCT_BLOCK : Read RCT block. 
0B 50 B7F 61951 BLBS 3; LBS means successful read. 
: 19 § HIR_ERR 3; Signal HIR error. 
: 19 _ func=ONLINE, - 
BB2 19 4 type=READ 
FFS9 BBA (19 BRW stEpi8 3; Goto deallocate and set RCT_FAILURE 
4 13 $ 50s 3 status code before returning. 
50 0024'CF : + 8 MOVL HIRTSL_PAGEOPTR,RO 3; Again, RO => sector 0 contents. 
B9 1940 BICW = #HIRTSM_FE~ ; Initialize incore bits. 
BY 'HIRTSM_MATCH- 
B93 1 4¢ iMIRTSM_EMPTYPE- 
Rg 136 'HIRTSM_RESCAN- | 
53 1944 'HIRTSM_RCTFULL,- 
OOOE'CE OO7C BF 53 1392 HIRTSW_STS 
07 B99 1343 BBC #RCTSV_FE.- 3; Branch if no forced error. 
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5 08 AO 98 194 RCTSW_FLAGS(RO) ,60$ 
ove eF 04 AB ! 4 60s BISW EPHIRTER Pe HIATSO_STS ; Set incore forec error bit. | 
OF €1 1 "BBC #RCTSV_RP1,- : See if NOT in phase 1. | 
03 08 A 1 RCTSW_FLAGS (RO) ,70$ | 
FBS 31 rr + 708 BRwW STEP? : Branch into step 7 to continue. 
3 £0 AB 19 : : BBS #RCTSV_RP2,- 3; Sanity check. 
04 08 A A 19 : RCTSW_FLAGS(RO) ,75$ 
19 o. BUG_ CHECK DISKCLASS, FATAL 
19 AO —00 4 1988 : MOVL acre. RBN(RO),= ; Remember RBN that we had selected. 
0058'CF + ¢' HIRTSC_RBN 
| 
OD «1 A 1306 BBC #RCTSV_BR,- ; See if we had had bad RBN. 
0B 08 A C 196 RCTSW FLAGS (RO) , 80S : Clear means no. 
OOOE*CF O08 AB of 1308 BISwW oc old, MATCH, = ; We set equivalent bit in core. 
14 AO 00 C4 1308 MOVL oct BAD_RBN(RO),- 3; Copy the old bad RBN. 
OOSC'CF C7 196 HIRTSC_MATCHRBN 
A 1298 80S: 
‘ 1370 :; Here figure out whether this is prime RBN. | 
0309 30 CA 1976 BSBW HASH_LBN ; Hash HIRTSL_LBN to produce values 
CD 197 : _for HIRTSL_RCTBLOCK and HIRTSL_OFFSET. 
51 gpes' ct 0s c3 cP 1974 SUBL3 O6 -MIRTSL_ACTOLOCK AI 3 Subtract out RCT sectos 0 and 1: 
1 1 8 DS 1975 ASHL #7,R1,R1 3; R1 = relative block containing prime 
D7 1308 : RBN descriptor * 128. 
51 ppc’ gt co D7? 197 ADDL HIRTSL_OFFSET,R1 3; R1 = prime RBN 
0058°CF 1 01 DC 1378 CMPL R1 ,HIRTSL_RBN : See if this the one. 
0S 13 —1 197 BEQL ; EQL implies yes. | 
10 As E3 1980 B1SW #HIRTSM_EMPTYPE ,- : Set bit meaning NOT prime RBN. 
OOOE * CF —5 1981 HIRTSW_STS | 
: + ; 90$: 
: : 3; Here read sector containing allocatable RBN into page 2. | 
51 00O58'CF F9 BF 78 e8 19 § ASHL #-7 ,HIRTSL_RBN,R1 3; R1 = relative RCT block containing 
EF 19 ; this RBN descriptor. | 
51 93 C EF 19 3 ADOL #2,R1 3; Add in sectors 8 and 1. | 
50 4 F2 19 MOVL #2,R0 ; Read into page 2. | 
00C F5 1990 BSBW READ RCT_BLOCK : Go read RCT sector. 
5 ‘ 4 1331 BLBS RO, 100$ ; Branch on success. 
FB 1998 HIR_ERROR - ; Signal HIR error. | 
FB 1994 step=4, func=ONLINE, - 
Fe 1995 type=READ | 
FEEO 31 1338 BRW STEP18 ; Goto deallocate and set RCT_FAILURE 
; 133 1008 3 Status code before returning. 
FCS9 3109) 1398 "  BRW STEP11 
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2 -SBTTL WRITE_RCT_BLOCK = Write an RCT sector 

9 + | 

9 WRITE_RCT_BLOCK = internal subroutine to write a block to a particular 

; 4 “relative sector in each RCT copy. 

909 INPUTS: 

909 ny > Bee number from which we write the sector 

: 

9 AIRTSW” “PEOCNTHTCRO} peony tg relative sector number to write 

909 CORPSL-MSG_BUF contains an ACKET to recycle 

, ; COR Pét “RSPTD contains an BSP ID to recycle 

909 OUTPUTS: 

, 4 RO - LBS indicates we were successful in writing at least one 

3 3 RO - LBC indicates failure in all writes. 

909 SIDE EFFECTS: 


909 


In this routine we use HIRT$SW_IOST as the repository of the 
combined status of the writes that we execute. In other words, if 
on finishing the writes, the low bit of HIRTSW_ 10ST is set, 

one or more of the writes was successful. 


NOTE: 
Since this subroutine is one of those that calls SCS routines which 
may fork, and d since we may not leave anything permanent on the stack, 
the caller's return point is popped. ott the stack and pushed onto 
the HIRT SUBSTACK via use of the HIRT_SUBSAVE macro. Return to the 
caller is effected by use of the HIRT_SUBRETURN macro. 


WRITE_RCT_BLOCK: 
HIRT -SUBSAVE 
mov Araiea SPGOCNTNTERO}, - 


NIRTSY ECTORNO 
MOVW asss BRORCT HIRTSW_IOST 


CLRL = HIRTSL_LOOPCNT 


Save return point in SUBSTACK. 

Save input argument as to which page. 

Also save input argument as to w 
sector (page) to write. 

Initialize combined status word. 
Initialize loop counter. Note loop 
counter is longword even though we 

only use one byte since we MULL2 

with the counter in BUILD_RCT PACKET. 


0056'CF 50 
0054°CF  O04C°CF40 


comer 5 


5F 68 AS) OD BBS #UCBSV_MSCP_WRIP, - If disk is software write protected 
208 UCBSW_BEVSTS(R3), 46$ branch around and reject. | 
100 8F BICW #HIRTSM_RCTFE,- : Initialize flag each time thru loop. 
"CF HIRTSW SIS 
‘CE CMPB HIRTSL_LOOPCNT,- : See if - are all done with all 
$3 988 BU_RUicPys(R3) : «RCT gop be | 
BLSSU : LSSU implies NOT done. 
6A 308 BRB $ 3; If done, branch around. 
50 0056 ¢f MOVZWL HIRT$W_PAGENO,RO 3; RO contains which page to map. 
161 BSBW MAP_ ; Map page selected by RO. 
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SS SS SS SSS SSS Se eee eessssssssssssessssoessssossesssssssss oF 
PERE EF FAA AMAA ALAIONITONITINININIIIN 2 2 3 IS OQOOOOOOOO GO 


ee ae eee RCE SS er mk TAR Sh NR ED IE eT Sent 
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0008 CF 
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0108 
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A 
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1000 8F 
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OOOE * CF 


‘CF 08 
ra) 


50 88 


025C 8F 
14 


100 8F 
OE * CF 
Al 


01 
0008° CF 
0010°CF 

8 


ed 


- Write an RCT sector “SEP-1 
; Recycle the current END PACKET, 
; sector of this copy. 

BSBW BUILD_RCT_PACKET 


MOVB #MSCP$K_OP WRITE - 
MSCPSB_OPCODE (Rod 

MOVW = @ASCP OMP, = 
MSCPSW_AODTFIER(R2 


BBC ss#HLRTSY RCTEE, = 
HIRTSW_STS,40$ 

BISW #MSCPSA_MD_ERROR,- 
MSCPSW_MODTFIER(A2 


do nothing. In this wey i 
will have a success indica 


BBS s*#HIRTSV_RCTFE, - 
HIRTSW_STS,60$ 

IF_MSCP SUCCESS, then=50$, 
status= 


NAAR UN $9 OO NAME WN OS OO NAUE WO OONAULS UM "O0OD xX 


DOO O00 OOO O09 0909090009 09 08 INI NSIS SIN NNO OPA OOASOAOAUM OOO 


Oe td 2 0 = I I MQOOOOOOCOQOQOOOCOCOCOCOOSCOOCSOSCSOSCOCSooO 


: the MSCP packet to write page 
ALL this is 


40$: 
SEND_MSCP_MSG 
UNMAP 
CLRL  CDRPSL_LBUFH_AD(RS 
MOVL  CDRPSL_MSG_BUF (RS) ,R2 
BBC #MSCPSV_EF_ERLOG,- ; 
MSCPS$B_FLAGS(R2).45$ ss: 
BISW #HIRTSA_ERLOGIP,=- 5 
ase HIRTSW_STS : 


REPLACEMENT FOR THE Disk 16°S o-188e 00:38:38 YO VER Macro V04 Page 


DRIVER.SRCIJDUHIRT .MAR; 1 


the current RSPID and then prepare 


) 


) 


) F 


nto the next RCT copy at relativ 
y BUl 


e 
accomplished b LD_RCT_PACKET. 
Routine fills most MSCP fields. 
Returns R2 => MSCP packet. 

Copy the WRITE opcode. 


in compare modifier to get a 


3 — 
3 write compare operation. 


Bit clear says write WITHOUT force 
error 


: Set force error modifier. 


; Send message to the MSCP server. 
; Unmap page. 


Indicate no mapping resources 
currently allocated. 


; Refresh R2 => End message. 
; Test for error lo qyrenee generated 


and branch around if no 


; Else remember that error log messages 


Have been generated. 


See if write succeeded and if so set HIRT$W_IOST to success; otherwi 


se 
f one or more writes succeed, HIRTSW_IOST 


tion. 


Sete Ge Gee Ge 


CMPW 80s @MSCPSK_ST_WRTPR, RO 
an BNEQ 48$ 
MOVW #SS$_URITLCK HIRTSW_10ST; 
BRB 70$ s 
99 48$: 
BISW #HIRTSM_RCTFE,- : 
HIRTSW_STS 
§ BRB 30$ : 
50$: 
4 MOVW $*#SS$_NORMAL,- r 
5 pee HIRTSW_1OST 3 
; INCL WIRTSL_LOOPCNT : 
3 BRB 208 3 
9 70$: 3 
1 MOVZWL H RT Sy 10ST, RO : 
13 BLBS)~=ss«aRO, 758 ; 
1 MOVW RO, HIRTSW_IOWORST $ 
14 75$: — WIRT_SUBREfURN ; 


Branch around status update if 
we had force error. 

Branch if request was successful, 
peeving MSCP status in RO. 

Check for write protected. 

If NOT, some other error. 


Indicate why we couldn't write. 
And branch around. 


Set force error flag and 
branch back to rewrite it. 


If success, remember it in static 
HIRT field. 


Increment loop counter. 
And branch back to do next copy. 


Here after we finish all RCT copies. 
Return status to caller. 

successful. 

Else, save ‘‘worst’’ error. 

Return to caller. 


45 
(17) | 
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Read an RCT sector 8 3Eb- 1984 80:73:38 LORIVER. SREIDUMIRT. MAR: 1 = 48) 


-SBTTL READ_RCT_BLOCK = Read an RCT sector 


“~ 
‘Zz 


DUHIRT HOST 
vd4=000 READ 


> 


> oo 
m oOo 
oo 
oo 
oc 
GN 
RIP IPIPIPIPGPIPYPIPPINIPIPIPIPIPIPIPIPIPIPIPIPYDIPIPIPINIPIPIPIPIPIPIDPIPIPIPIPOPIPIPIPIPIPIPIPIPIPIPIPIPINIPINY «=O -t 


(Bene 


a 
; READ _RCT BLOGK - internal routine to read contents of a relative sector of 
e 


INPUTS: 
= page number of page into which we read the sector 
= relative sector number to read 

=> UCB 

=> CORP . 

RPSL_MSG_BUF contains an END PACKET to recycle 
RP$L_RSPID contains an RSPID to recycle 


OUTPUTS: 
RO - LBS indicates we were successful in the block from one of the 


RCT copies. 
RO - LBC indicates failure in reading from all RCT copies. 


SIDE EFFECTS: 
We use HIRTSW_IOST to temporarily save the status to be returned 
to out caller. 


NOTE: 
Since this subroutine is one of those that calls SCS routines which 
may fork, and since we may not leave anything permanent on the stack, 
the caller's return point is popped off the stack and pushed onto 
the HIRT SUBSTACK via use of the HIRT_SUBSAVE macro. Return to the 
caller is effected by use of the HIRT_SUBRETURN macro. 


Se Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Se 


READ_RCT_BLOCK: 


HIRT_SUBSAVE Save return point in SUBSTACK. 
MOVW 


pow fom lo lelolelelelelelelelelelelelelelelelolelelelolelelelolelole ole alo Mp ‘La! 


DODOOOOOOOOOOOVOOOOOOOOOOOOOOOOOOOOOO OZ 
BDVAAAOHAAHAHAHAHAOHAAAAAAHOHAAAAAAAAAAAQAAAOQAOO —-—- 


NNO AWAWAAAAAANAAINNWNAAANAIAI ANI WIAANA AANA 


SND DEPP PPA P PD TTT BS BS BS BS BE BE BE EWN NII III POPONNININPNNIN FS HM SKK OD 


ee ee ee a ee ee ae ae ae ee a a a a a ee a ee ee a a a a a el a a a a a a a a a a a ed «=| OT 
ROOD NA NEW 9 OD NAME WIN 9 OD NA UNE WIN 2 O OD NAME WIN 0 DOONAN EWN O OONO 


0056°CF 50 RO,HIRTSW_PAGENO : Save input argument as to which pege. 
0054"CF 51 MOVW R1,HIRTSW_SECTORNO ; mace sees wert argument as to which 
; sector to write. 
OO4C'CF4O0 01 MNEGW #1,HIRTSW_PGOCNTNTCRO] ; Invalidate page(RO) contents. 
0010°CF D4 pone 208 CLRL HIRTSL_LOOPCNT : Initialize loop counter. 
OO10"CF 91 $961 ; CMPB HIRTS$L_LOOPCNT ,- ; See if we are all done with all 
0000'C3 O9E> yCBSB_DU_RCTCPYS(R3) : RCT copies. 
09 —sit1F eee BLSSU 0$ ; LSSU implies NOT done. 
OO08'CF 216C 8F BO O9EA MOVW $EsS AONE T MERTON 10 ; Pass failure to our caller. 
4B 11 art 30s BRB 508 ; If done, branch around. 
50 0056'CF *f a3 : MOVZ2WL HIRTS$W_PAGENO,RO ; RO contains which page to map. 
0080 0 re BSBW MAP_PAGE ; Map page selected by RO. 
9FB ; Recycle the current END PACKET, the current RSPID and then prepare. 
9FB 3 the MSCP packet to read page from the next RCT copy at relative 
44 | : sector of this copy. All this is accomplished by BUILD_RCT_PACKET. 
58 10 Q9FB BSBB BUILD_RCT_PACKET ; Routine fills in most of MSCP packet. 
9FD 3; Returns R2 => MSCP packet. 
21 90 O9FD MOVB #MSCPSK_OP_READ,- ; Copy the READ opcode since this field 


eed HOST 
v04-000 READ 


~ 
> 


PROPOPIPINYININININPYPIPYNPINIPIPIPIPININIPIPUPIPUIPOPOPONPUPoPofnofnnrny O-7 


PROMOMONONONOR) — st tt ot tt tt tt OT 
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- Read an RCT sector “SEP-1984 00:15: DRIVER. SRCIJDUHIRT.MAR; 1 (18) 


MSCPSB_OPCODE (R2) ; ,i8 not filled in by BUILD_RCT PACKET. 
MOVW #MSCPSA_MD_COMP,- ; Move in compare modifier td get a 
MSCPSW_AODIFIER(R2) ; compare operation. 


vere 


SEND_MSCP_MSG ; Send message to the MSCP server. 
UNMAP ; Unmap page. 
2c AS (4 CORPS$L_LBUFH_AD(R5) : Indicate no mapping resources 
; _currently allocated. 
52 1C AS 00 MOVL CORPSL_MSG_BUF(R5),R2 ; Refresh R2 => End message. 
05 €1 BBC #MSCPSV_EF_ERLOG,- ; Test for error lo eqeanee generated 
07 09 A2 nSCPSB FLAGS (R2),35$ 3 _and branch around if not. 
0080 8F As BISW #HIRTSA_ERLOGIP,= 3; Else remember that error log messages 
OOOE ‘CF HIRTSW_STS ; Have been generated. 


35$: 


3; See if read succeeded and if so we now have a vaiid copy of the sector so we 
3 ig continue. If we did not succeed we bump the loop counter and 
go back to try and read the sector from the next (if any) RCT copy. 


OOOCOCCOCOOCOCOCOCOOGCOOCOOCOOOOOOCOCOO AZ 
FPPPPPPrrrYrYrYrYrKrKrrrrrrrrrrrrrro oz 
MMO PAOOOOCOCOOOS OOF f£O0O90 Fyne 


WA ARPOPOPPNMPPPOPPON | = = = =@DOOOCOCOTF 1 


SGOSGOOCOOC COO OOOO OOOWDWWOWOOWOOOOO UI INNNNN KO 


AMIE WN 9S OD NAME WN — OOO NAUE WN OOONOUS Ww 


IF _MSCP tt hed then=40$ ; Branch if request was successful. 
OO10'CF 06 INTL HIRTSL_LOOPCNT ; Increment loop counter. 
8 11 BRB $ ; And branch back to try next copy. 
40$: ; Here after we finish all RCT copies. 

50 O056°CF 3C MOVZWL HIRT$W_PAGENO,RO 3; RO = page number into which we read. 

0054°CF 80 MOVW HIRTS$W_SECTORNO,- ; Update contents of this page by | 

004C'CF40 HIRT$W~PGOCNTNTCROJ ; remembering sector therein contained. 
O008'cF 01 # B0 pate 50s MOVW S*#SSS$_NORMAL ,HIRTSW_IOST; Indicate success. 
50 0008'CF DASE MOVZWL HIRT$W_IOST,RO ; Return status to caller. 
05 50 EB OA4 BLBS) =s_- RO, 55 ; Branch if successful. 
OOOA'CF 50 0A46 MOVW RO, HIRTSW_IOWORST ; Else, save ‘‘worst’’ error. 
0A4B 55$:  HIRT_SUBRETURN ; Return to caller. 


xo 
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KET = Recycle an MSCP end m 5-SEP-1984 DRIVER. SRCIJDUHIRT.MAR; 1 (19) 
-SBTTL BUILD_RCT_PACKET = Recycle an MSCP end message 
-SBTTL FILL_RCT_PACKET = Prepare an MSCP packet for an RCT transfer 


: “BUILD -RCT_PACKET = internal subroutine to recycle the current END PACKET 
; and then to fall thru to 


; FILL nee PACKET = ody prepares an MSCP packet to do an I/0 transfer 
: to or from the RCT. 


SOOCCCOOSGOOOOOOCOOCOOOOOOOOOOOCOSOOO I 


PPrPrrrrrrrrrrrrrrr rr rrrrrrrrrrrrr wz 


oO 


OA 


; INPUTS: 
; R 


DEQ. DPLD GAs BE EEE EWI NWI AIA PO NIPINIPININID 2 2 PO OO OO OOO 
FAR $9 OODNA UE WN 9 OD NAME WIN @ OC ODNOA UE WIN $$ OC OD NAWUEWIN "CO OONOUE With" OO 


PIPIDPININIPIPDNPINININIPIPININPYNINYINININININIAINININIPININININPINININAINININININPININIPINIMINININIPININIPININININ Orn 


=> UC 
R5 => ws 
CORPSL_RSPID contains a RSPID to re-cycle 
CORPSL_MSG_BUF address of ao op to re-cycle or 0 (zero 
0 (zero) means that we must here allocate an OmSCP buf fer 
CORPSL_BUFHNDL nt pd ie 96 bit buffer handle 
UCBSL_ABCNT tains which RCT copy we are accessing 
HIRTSO. SECTORNO Samknied which relative sector number in the RCT copy 


ae => MSCP PACKET 
Registers RO and R1 are modified 


‘ Since BUILD_RCT_PACKET is one of those that calls SCS routines which 


may fork, and since we may not leave anything permanent on the stack, 
the caller's return point is popped off the stack upon entry to 
this Bt (ae and pushed onto the HIRT SUBSTACK via use of the 
HIRT_SUBSAVE macro. Upon return from those SCS routines, the caller's 
return point is restored to fhe normal stack via use of the 
HIRT_SUBUNSAVE macro. all this is done prior to entrypoint 
oat “RCT_PACKET so that we may fall into this routine and then use 

ts RSB fo return to our caller. 


BUILD_RCT_PACKET: 


HIRT_SUBSAVE Save return point on HIRT SUBSTACK. 


ASSUME MSCPSL_CMD_REF EQ 0 

TSTL CDRPSL_MSG_BUF (R5) 3; See if we nee®# a Message Buffer. 

BEQ t 20$ ; EQL means Bufivr needed. 

RECYCH_MSG_BUF : Else Recycle END PACKET into MSCP buffer. 

BLBS 3; LBS means allocation success. 

BRW REPLACE _CONNECT_FAILURE ; mi Loret ten failure means CONNECTION 

; failure. 

ALLOC_MSG mt 3; Allocate a Message Buffer. 

BLBC 0$ 3; LBC means allocation failure. 

HIRT_SUBUNSAVE ; Restore caller's return point. 
FILL_RCT_PACKET: : Alternate entry that only fills in packet. 


INIT_MSCP_MSG ucb=(R3) : Initialize MSCP command packet. 


4 ve HOST 
v04-000 FILL 


OC A2 0200 BF 3C 


=" 
vue 
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- Prepare an MSCP packet 5-SEP-1984 00:13: DRIVER. SRCIJDUHIRT.MAR; 1 (19) 
MOVZWL #512, - ; Setup transfer byte count. 
MSCPSL_BYTE_CNT(R2) 
MOVQa CORPST_LBUFANDL(R5) ,- Copy 96 bit buffer handle. 
MSCPS$B_BUFFER(R2) ; 
MOVL CORPST_LBUFHNDL+8(R5) ,- ‘ 
MSCPSB_BUFFER+8(R2) § e 


Calculate LBN of relative pgctor for this RCT copy. 

It is done by multipl ng the number of RCT copies already written, 

. n HIRTSL_LOOPCNT) by the size of an RCT copy (contained in 
UCBSW_DU_RCTSIZE), adding in the LON of the base of the first RCT copy 
(UCBSC_DO_USIZE) and then adding n the relative sector number 
passed to us when we were called (HIRTSW_SECTORNO). 


MOVZWL UCBS$W_DU BETS 1z6 (AS) .RO 3; RO contains size of one RCT copy. 
MULL2 HIRTSC_LOOPCNT, 3; RO contains COPY# * COPYSIZE. 
UcBst BY USIZE(R3),RO  ; RO contains LBN of base of this copy. 


ADDL 
MOVZWL HIRT$Q_SECTORNO,R1 R1 contains input relative sector #. 
ADDL R1,R0 RO contains LBN. 

MOVL RO, MSCPS$L_LBN(R2) ; Move LBN to MSCP packet. 


RSB ; Return to caller. 
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nae pian sAree REPLACEMENT FOR TH Disk 16-SEP-1984 00:5 AX/VMS v04-00 Pa 
PAGE = Map a page for a oR THE D g- -SEP-1984 t 0; 3: 5 LORIVER.S R.S DUH IRT.MAR;1 - 38) 


04-000 


AAB 8 -SBTTL MAP_PAGE = Map a page for a transfer 
AAS 5590 :* 
wr 4! : MAP_PAGE = internat subroutine to map the page selected by RO. 
AAB 38 : INPUTS: 
AAB 94; RO contains the number of the page to map. 
a 32 3 RS => CDRP 
AAB 39 : OUTPUTS: 
a 4 ; CDRPSL_SVAPTE, CORPSW_BOFF, CDRPSL_BCNT and set to page parameters. 
AAB 0 ; CDRPSL_LBUFH_AD set to => CDRPST_LBUFHNDL 
AAB é : Mapping resources allocated. 
AAB 04 MAP_PAGE : 
ne 5 ay _SUBSAVE : Save caller's return point on SUBSTACK. 
CC AS) 0034°CF40 30 ents y 7 hd =BVAPTE (RS) 3 Copy pape ping date for relative page 
DO AS) 0044'CF40 BO OAs $09 MOVW WIRTSY_BO -BO 44; g0J.° : Copy BOF F as well as SVAPTE. 
D2 AS 0200 8F 3C Sate 310 MOVZWL #512, CORDSL -BCNT(RS) : Finally copy BCNT for page. 
30 AS 9E OAC9 314 MOVAB CORPS$T_LBUFHNDL(R5) ,=- 3; Point CDRP field to local buffer 
2c AS OACC 31 CORPSL— _LBUFH_AD(R5) ; handle field. 
ar se MAP_IRP ; Map page. 
OAD1 2316 HIRT_SUBRETURN ; Return to caller. 
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vo4-000 SEARCH_RCT = Locate an available RBN o7SEb=i9 4 $8 :33:35 LORIVER. SREIDUMIRT.MAR: 1 nF ty 
a i «SBTTL SEARCH RCT = Locate an available RBN 
ADB ;+ 
ADB 3; SEARCH_RCT = internal subroutine to search the RCT for an available RBN 
ADB ¢ 5 fo allocate for the current failing LBN. This routine is called from 
ADB 3 STEPO of che replacement algorithm and is only done here as an 
ee : ; internal subroutine to simplify the reading of that algorithm. 
ADB $ > INPUTS: 
ADB 3 R3 => UCB 
ADB 8 $ RS => CORP 
ADB $ HIRTSL_LBN LBN that is failin 
ADB 0; UCB$W_BU_LBNPTRK number of LBNs on a track of this unit 
ne 13 UCBSB_DU_RBNPTRK number of RBNs on a track of this unit 
ADB 5 : OUTPUTS: 
ADB 4; RO = SS$_NORMAL then: 
ADB = : RIRTSL_RBN - new RBN selected to replace the failing LBN 
ADB § 3 -and HIRTSV_EMPTYPE clear means this is a primary RBN, else 
a 3 3 secondary RBN. 
ADB : : If HIRTSV_MATCH set this implies that the LBN which failed 
OADB 40 ; had previously been replaced by an RBN which in 
OADB $0) 3 turn has failed. This failing RBN is in 
ee | 4g 3 HIRTSL_MATCHRBN. 
OADB 324 ; RO = 0 then we could not find an allocatable RBN and HIRTSL_RBN is 
OADB 2345 ; not valid. The cause of the failure to find an RBN Ts 
ae *$ 3 transmitted to the caller by: 
OADB 48 ; HIRTSV_RCTFULL set implies that the RCT on the disk 
$ s fu 
ADB 50 ; HIRTSV_RCTFULL clear implies we had a read error on 
aes 2) 3 some RCT sector. 
ADB 325 ‘ 
ADB 2354 SEARCH_RCT: 
ADB 2355 
- 28 HIRT_SUBSAVE :; Save return on HIRT substack. 
OOEE 30 OAES 28 BSBW HASH_LBN ; Hash LBN value in HIRT$SL_LBN returning 
nes 23 ; HIRTSL_RCTBLOCK and HIRTSL_OFFSET. 
O068 cr DO OAE 61 MOVL HIRTSL_RCTBLOCK,- ; And remember the starting sector 
4°CF wee 86 HIRTSL_STARTBLK 3 number in static storage. 
nH rt: 3 Here we initialize a few bits. 
AA OAEF 96 BICW #HIRTSM_MATCH- : Initialize the following flags. 
AF 6 'HIRTSM_EMPTYPE- ; Match set ag valid MATCHRBN, 
AF o8 'HIRTSM_RESCAN- ; EMPTYPE set implies secondary RBN, 
AF : 'HIRTSM_RCTFULL,- 3 Rescan implies reached Nulls, 
OOOE ‘CF 0078 8F “7 4 HIRTSW_STS : and RCTFULL means the RCT is full. 
=e ye ; Here we prepare to read the RCT sector containing the primary RBN descriptor. 


NN 
= 


50 02 00 OAF6 MOVL #2,R0 ; Prepare to read into page #2. 


a ——_——— 
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DUHIRT HOST INITIATED 4 00:58: AX/VMS Macro V04-00 Pa 52 
v04-000 SEARCH_RCT = Locate an available RBN ~$eE= 1 38e 8:33:38 LORIVER. SREIDUHIRT MAR: 1 = (21) 
51 0068°CF AF9 75 MOVL HIRTSL_RCTBLOCK,R1 3; And we read this relative sector #. 
Fete are 1g BSBW READ RCT ; Subroutine does read. 
77 E 34 4 BLBC RO, SEARCA_RTN 3 LBC implies read failure. 
& rg ; Here we scan the RCT sector containing the primary RBN descriptor. The 
4 ? : method of scanning is to scan outward from the primary RBN descriptor. 
4 § 10$: 
52 Dds OB 2 z 208 CLRL R2 ; Set up delta. 
L oH = ° 3 = next entry to test in first RC 
51 006C ‘CF 52 C1 be 5 ADDL3 R2,HIRTSL_OFFSET,R1 R1 in fi T 
pe § 3 sector to scan. 
OF 19 bE 308 BLSS 40$ 3; LSS implies invalid offset into page. 
0000007F 8F 51 D1 080 39 CMPL R1,#127 : See if we are within sector page. 
06 14 081 90 BGTR  40$ : GTR implies no, out of bounds, go 
1 91 ; to increment delta. 
0068 30 0817 3 BSBW TEST_RCT_ENTRY :; If in bounds, go test RCT entry. 
5E 5 E8 HS ; ¥ 1s BLBS RO,SEARCA_RTN ; LBS implies success. 
52 52 43 1D 95 MNEGL Be R2 3; Negate delta. 
&3 1 8 38 LSS 20$ 3; Branch to try agers if negative. 
$ 06 9 INCL R2 3 Else increment delta. 
MPL # : See elta too big. 
00000080 8F 5 D1 4 98 CMP R2,#128 See if del bi 
09 «6:19 8 99 BLSS 20$ ; LSS implies not too big. 
D 2400 3; Else we fall thru to try next sector. 
OB2D 2401 NEXT: 
GO068'CF D6 OB $86 108 INCL HIRTSL_RCTBLOCK ; Increment RCT sector to scan. 
0068'CF 01 0851 404 CMPL HIRTSL_RCTBLOCK,=- ; See if we are all done with search. 
0064 ‘CF 3 5 405 HIRTSL_STARTBLK 
13 bose $88 BEQL SEARCH_FAIL ; EQL means that we are finished. 
50 02 oD 3 $08 MOVL #2,R0 ; Prepare to read into page 2. 
51 0068'CF p D 240 MOVL HIRTSL_RCTBLOCK,R1 : And to read this sector. 
FE +e 410 BSBW READ_RCT BLOCK 3; Go to read sector into page. 
33 5 e Be ai) BLBC RO, SEARCA_RTN ; LBC implies read failure 
1F C1 1} 41 BBC #RCTS$V_NULL,- ; Before Linear scan of this sector, 
OF 002C'DF B4A 2414 @HIRTSC_PAGE2PTR,20$ =: see if we are beyond RCT. 
0068 ' CF be D B4 415 MOVL #2 HIRTSL_RCTBLOCK ; Here Beyond RCT. Wrap to start and 
OOOE "CF £ + 416 BBCS  s*#HIRTSV"RESCAN, - : go back to search some more after 
08 : 41 IRTSW_STS,10$ : Setting bit that says we have wrapped. 
B9 aig an BUG_ CHECK DISKCLASS,FATAL ; Impossible situation. 
52. D4 144 rt Y 30s CLRL R2 ; Clear loop index register. 
51 § 8 +H 4 § MOVL R2,R1 : Pass RCT entry of interest to routine. 
902 abe 4 BSBW TEST RCT_ENTRY : Call subroutine to test entry. 
1 E B6 424 BLBS RO, SEARCA_RTN ; LBS means we have the RBN, go from loop. 
EF 52 00000080 BF F +3 425 AOBLSS #128,R2,30$ :; If we return here, (entry not avail.) 
: 4 § : then loop back after incrementing R2. 
BB SC? 44 ri BRB NEXT 3; If we fall thru, goto NEXT sector. 
B72 0h j SEARCH_FAIL: 
: : Indicate failure to caller an 
50 D4 7 4 CLRL RO Indic fail t Lt d 
0040 BF AB OB74 24 BiSW #HIRTSM_RCTFULL,- : indicate reason for failure. 


vO4~000 


OOOE * CF 
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78 


0878 ge o38 SEARCH _RTN 


NT FOR tt b9sx 
vailable RBN 


HIRTSW_STS 
MRT ~SUBRE TURN 


$$Ep=1986 80:18:30 EDAIVER. 3a sR 


cro v04-00 
REID DUHIRT.MAR; 1 


; Return to caller. 
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- Test for allocated RBN -SEP-1984 00:13: DRIVER. SRCIDUHIRT.MAR; 1 


-SBTTL TEST_RCT_ENTRY = Test for allocated RBN 
TEST_RCT_ENTRY = internal subroutine called to test an RCT entry to see 
if it represents an allocatable RBN or if it is already allocated. 


INPUTS: 
R1- = index of RCT entry. 


OUTPUTS: 
RO 


success code. 
SS$_NORMAL then HIRTSL_RBN is set to the RBN associated with the 
RCT entry defined by HIRTSL_RCTBLOCK and R1 (entry index). 


= 0 tuples that the entry is not allocatable. In in addition if 
the RBN is currently allocated and if it is allocated to this 
LBN (i.e. to HIRTSL_LBN), then HIRTSV_MATCH is set in 
HIRTSW_STS and the RBN associated with the current entry is 
stored in HIRTSL_MATCHRBN. 


DAEA_LQXLQDMNMGM Ni BEEPS PEPE EWI KO 


FUN OOONAUE WO OONOAUES WIN ODN 


TEST_RCT_ENTRY: 
PUSH fe 3 Save register. 
SUBL #2,HIRTSL_RCTBLOCK,RO ; RO = found sector without bias of 2. 
ASHL #7,R0,RO : mAtieey by ° 
ADOL R1,R0 ; RO = RBN associated with this entry. 
MOVL HIRTSL_PAGE2PTR,R2 3; R2 => page 2, which contains sector. 
465 TSTL (R2) CRT) 3; Test contents of current entry. 
46 BNEQ 108 3: NEQ implies that it is not available. 
46 MOVL RO,HIRTSL_RBN 3: Save RBN of this entry in HIRT. 
468 MOVZWL #SS$_NORMAL ,RO 3; Set success code. 
£83 108 BRB 408 3; And branch to return to caller. 
471 MOVAL (R2)CR1),R2 3; R2 => entry of interest. 
47 BISW #HIRTSM_EMPTYPE,- : Set bit meaning any find will now 
47 HIRTSW_ ; have to be a secondary RBN. 
ore BBC #RCTSV_ALLOCATED,(R2),30$; If clear, then unusable RBN. 
$c8 EXTZV #RCTSV_LBN,- :; If allocated, see if for this LBN. 
47 #RCT$S LON, CRE) Ae 3; R2 = LBN for this RBN. 
478 CMPL Re HIRTSL_LBN : See if this LBN. 
479 BNEQ 30§ 3 NEQ means not for this LBN. 
480 BBCS s*#HIRTSV_MATCH, - 3; Set bit that means we have a match. 
481 HIRTSW_STS,20 
4 ; ste BUG_CHECK DISKCLASS.FATAL ; Impossible situation. 
: : 308 MOVi, RO,HIRTSL_MATCHRBN ; Save RBN that matched. 
v § 60s CLRL RO ; Failure to find allocatable RBN. 
; Restore register. 
4 POPL R2 Rest ist 
4 RSB ; Return to caller. 
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HIRT T INIT 
voe~000 H_LBN 
3 -SBTTL HASH_LBN = Hash an LBN into a RCT block and an offset 

9 


495 3+ 
rh 3 WASH internal routine to hash HIRTS$L_LBN giving HIRTSL_RCTBLOCK and 


BD 
BD 
aD 
BD6 2495 ; IRTSL_OFFSET. 
BD £38 3 
BD 497 ; INPUTS: 
BD re $ 
BD 499 ; R3 => UCB 
~ 2 , 3 HIRTSL_LBN 
Bp ; é ; OUTPUTS: 
Bp 204 : HIRTSL_RCTBLOCK = RCT sector containing prime RON descriptor for this 
B06 : $ ; HIRTSL_OFFSET = offset of prime RBN descriptor in sector. 
dee 308 ; SIDE EFFECTS: 
0BD6 2510 ; Registers RO an R1 altered. 
3008 511 ; 
D6 21§ 
98D6 313 HASH_LBN: 
50 0000°C3 3C OBD6 2515 MOVZWL UCBSW_DU_LBNPTRK(R3),RO ; RO contains LBNs per track. 
51 0018°CF 50 (C7 pa0e 218 DIVLS RO,HIRTSC_LBN,P1 ; R1 = QUO(LBN/(LBNs per track)). 
50 0000'C3 9A OBE1 518 MOVZBL UCBSB_DU_RBNPTRK(R3),RO ; RO = RBNs per track. 
50051 C4 OBE6 2519 MULL R1,R0 ; RO = (RBNs per) *QU0(LBN/(LBNs per)) 
51 D4 oeee ; Y CLRL ; Clear high order part of dividend. 
50 00000080 8F 78 OBE 5 ¢ EDIV #128,R0,- ; Divide result by 128 giving the 
OBF 5 HIRTSL_RCTBLOCK,- $ quotient and the 
OO6C*CF 0068'CF : : : HIRTSL_OFFSET ; remainder. 
0068'CF 02 CO OBE 526 ADDL #2, HIRTSL_RCTBLOCK ; Add in sector 0 and sector 1. 
05 OBFD 2527 RSB ; Return to caller 
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-SBTTL DUSHIR_ERROR = Process error encountered during HIRT processing 


°° 
ze 
B) 

me. 
zDa- 
ze 
oo, 
2D 


DUSHIR_ERROR = Process error encountered during HIRT processing 

Functional Description: 
This routine performs any operations necessary to inform the world 
that an error was encountered during HIRT processing. It is invoked 
via the HIR_ERROR macro. 


current ty - the error processing consists of broadcast ing a@ message to 
e 


OPAO. The general text of the error message is: 
%<devnam> encountered a <type> error in <func> step <n> 
Where: 
<devnam> is the device name 
<type> is one of READ / WRITE / RCT FULL 
<func> is one of REPLACE / ONLINE ’ 
<n> is a number giving the failing step in the 
replacement algorithm 
Inputs: 
RO A yt rate giving the <type>, <func>, and <n> values above 
R UCB address 
Outputs: 


RO is destroyed 
ALL other registers are preserved. 


DUSHIR_ERROR: 


Se ba fons Boca ten Bona ona dona) Sa Ponca Bina dona Dosa Ba Dinca i Di i 
NAME SO OD NAME WN O OO NAME WN SO OO NAW WO ODNAUE UM" OO 


t= MODOOOOOCO™ a be bes bes ba bn ba Bs Ba Ba a] “a nm 
SNS SSN SSDP DDD DED DDD De TS BB BS BB BE BE ENNIO 


00000000000 
WEWwtyu—O OE 


OOFE 8F 68 PUSHR #*M<R1,R2,R3,R4,R5,R6,R7> :; Save some registers. 
SE BB AE 9 MOVAB =HIRERSK_MSGSIZE(SP), SP : Make message space on stack. 
28 f D MOVL SP, R 3: Save base of message space. 
5 D MOVL RO, R 3; Copy error parameter. 
; Form doxice name. 
5 33 MOVL R35, R5 3; Move UCB address. 
1 g MOVL 3; Setup buffer address. 
1 ¢ MOVB #°A/%/, (R14 : Insert percent sign. 
0 D MOVL § #HIRERSK_DEVNAMSIZ, RO : Setup buffer size. 
4 QO cf MNEGL #1, R 3; Setup formation code. 
9000000" F 16 8 JSB G6*fOC$CVT_DEVNAM : Get device name for UCB. 
5 6 A.) ay ADDL3 =R1, R6, RB ; Init working buffer pointer. 
3 06 NCL R3 : Adjust for percent sign. 


: Copy first fixed segment. 
hovaby HIR-ERR SGI RI 
8S8B COPY_ASCIC 


3; Insert proper <type> segment. 


Get string address. 
Copy string. 


wn 
at 
So 
o 
w 
So 
o 
bes | 
=o 
om 


=x 

: os 
SSSSSSSSRASSSSSSSSSSESSSSHOOSSOSOGGSSSOGOGSS SOG OS OOOO Sooo DS 
ee eal eal aA AL La dk lh db db habla dh ab dabei eh edb ehh chk adh eh ech dah veda ci dh dhl nce ct cde dh lb ch ved bedhead dedi daedh Deabeh beadd 
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-000 RROR = Process error encountered 5-SEP-1 DRIVER. SRCJDUMIRT.MAR; 1 3) 
52 2 08 bE 43 ; § putty MIR ERR TYPES, #WHIRERSS_TYPE, R?, ae j See ty type numbe ee > 
p et error es ‘ 
1 A OC 3 32$: MOVZBL 5" RO ; Get length hot s strings base 
CO OC ADOL 3; Point i next message. 
‘7 f DC SOBGTR 328 ; Loop till message located. 
10 0¢% BSBB Mee aecxc : Copy <type> string. 
1 d fixed t 
' secon ue se pen . 
51 ead % 0C4 hovAab’ HIR_ERR_SEG2, ; Get string address. 


BSBB COPY_ASCIC 


Insert win Ear < tune? terete 
HOVAB. HOR ERR_REPL 
BBC HIRERSV_O ON INE; R7, 45$ 
MOVAB ate ERR ONLINE, R1 
45$:  ®BSBB Cort” ASTIC 


opy third irae geonent. 
hova HIR_ERR_SEG : Get string address. 
BSBB COPY_ASCIC 3 Copy string. 


Copy string. 


Assume REPLACE. 
Branch if not ONL INE. 
Else, get ONLINE. 

Copy <func> string. 


AOMOOOor 


SGOOGDOCGCOCOCOOCOCOOOOoOOoOO 


RO ODA NEW @§ OOO NA NE WIN § S OD NAUE WN OS ODNA UE WIN  O DOONAN WO 
> 
o 
o 


Convert ve. . its of <n> and insert them. 
ASSUME. HIRE TEP EQ 0 
ASSUME HIRERSS STEP EQ 
0 9a 1 MOVZBL R7, R 3; Get step number. 
50 63 BF 91 1 cepa s#99, RO : Is number to big? 
of 15 1 BLEQ 0$ ; Branch if number to big. 
1 be 1 CLRL 3; Quadword extend number. 
a - 28 & 1 EDIV 0, RO, 3 Split digits. 
; 0 0 a 1 sone #*A/0/, RO, (R3)4 3; Insert tine digit 
51 0 1 : #°A/0/. RI, (R3)4 3 Insert units d git. 
18 60$: Compute message size and broadcast nar to OPAO:. 
1 hove Rg. R ~~ base message address. 


SUBL3 R2, R3, a} 3 message $s 
MOVAB G*OPASUC 3 eet PAO UC * adress. 
JSB Be TOC SBRDABCAST ; Broadcast message. 


MOVAB aieeoee MSGSIZE(SP) ; Clear message from stack. 
oe M<R1,R2,R5,R4,R5, he R?> : Bestore saved registers. 
PY x 


+ 
+ 


Routine to copy ASCIC string to buffer. 


OOOO O000900 08 III INP POPPA OA 
SESEEALCS AON DODA Sra SSS 


PPP PADP PAPA PAAAAAEAAAAAAAAAAAA AA AAA AAAAAAAAOAAO SOM 


PIPVOOWOVOOWOOOWOWOIOWOIOWOIOIOWOIOWOIOWOWOHIOIOIOIOIAOAAAOAAOOO 


: Inputs: 
; R1 ASCIC string address 
3 R3 buffer address 
4 3 Outputs: 
; ; R3 updated buffer address (complements of MOvC3) 
41; RO through RS are altered. 
96 2642 ; ALL other registers are preserved. 


DUHIRT HOST INITIATED 
/YOe=000 DUSHIR_ERROR = 
C 43 ; 
C 4g 
C 
50 8! 9a OC 4g 
63 61 50 38 C99 264 
C9D 648 
CIE 264 
C9E 2650 
C9E 2651 
OC9E 2652 
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COPY_ASCIC: 
moves (RI)¢ 
nat thie (R3) 


~ END 


; Get string size. 
; Copy string. 
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DUHIRT 
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BUGS. DISKCLASS 
BUILS Bact PACKET 
DBs Fxe 


SOoOOOOCOOOOOOOOSoSoSo * 


RROVO WAH HH NOO NOVO NN HHH HHH HONOOOQOCOOCOOCOCOOOOOSoO * 
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vuvvv0UvUUU 
PAAAAARAM 
Swan tetke 


N-bore 

DRP W-CDRPSIZE 
RPS$W_CHAN 

Ht DUTUCNTR 


¢ 
¢ 
¢ 
C 
C 
C 
C 
C 
C 
C 
C 
COR 
C 
COR 
: 
¢ 44 + IRP_ SIZE 
COR Pou. 

COR 
cop 
DU 


DEVN VNR MS 

SCANCEL FROM HIRT 
DUSDI SCONRE CT -AIRT 
DUSHIR ERROR 


DUSLOCK-HIRT 

DUSONC IRE COMPLETE 
DUSREPLACE_LBN 
DUSRSTATG AIRT_CDRP 
DUSTEST_HIRT_ROAITCNT 
BUSUN ork K_H 
DUTUSINIT-MSCP_MSG_UNIT 
DUTUSINSERT RESTA TARTS 


D 
DUTUSSE NO-MSCP_MSG 
DUTUSTEST CANCEL. CDRP 


T_HIRT 
NONPAGED 


WAIT 
T7PACKET 


kd LPL Pete RR Ee ET | 


bad 
or 
‘z'0 


~MSGS1Z 


HhHonnnnnnnnnnnnnnnne 
OOOQWOWOOOOOO BW NNRNONONWNHNOGOO NOOO WMO Can 


| 


FFF 
000 
FFF 
83 
FFF 
000 
000 
FFF 
FFF 
FFF 
000 
FFF 
000 
FFF 
FFF 
FFF 
FFF 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 


00000178 


geererese 
geereene 
Reeeerese 
00000000 
geerenee 
geaerenree 
gaeeeeenre 


geeeenee 
eeerenee 


<< 
ms 
Dn 


<x 


j 


a 4 
ze 


an 


SOD CCOOCOOOOOOOOO 
MIPITY —_- FOMOPoMoNMoPoNoNoNoPoNoNnon 


wn 


So 
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oooo 
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hoot table ginko: : ety 7 8:33:35 UORIVER. SREIDUMIRT MAR: 1 33) 
| : A READ_RCT_BLOCK C3 R 
AP PRE tt RAB & REPLACE CONNECT_FAILURE $b000808 g 
| MMGSGL _SPTBASE eeeeeeee =X SCSSDEACL_RSPID aeereree =X 
MSCPS$B_BUFFER = 1 SCSSFIND_RDTE aeenneee =X 
MSCPS$B_FLAGS = SCSSUNSTALLUCB aeeeeere =X 
MSCPS$B_OPCODE = 8 SEARCH_FAIL B72 R 
MSCPSK_OP_REA s 1 SEARCH_RCT ADB R 
MSCPSK_OP_REPLC s 4 SEARCH_RTN = $38 8 
MSCPSK_OP WRITE - 0 Sitees “ 2} 
MSCPSK~ST~suce = SS$_BADRCT = 6 gf 
MSCPSK_ST-WRTPR 2 6 SS$_CANCEL = 8 0 
MSCPSL_BYTE CNT = SS$"NORMAL = 9} 
MSCPSL_CMD_REF = 0000000 SS$-WRITLCK = 000 ¢ 
RScPst=uBN = O000001E STEP: B0000863 ROG 
= 
MSCPSL_RBN = 0000000C steele 00000609 R 92 
Y = 00004000 STEP1 00000680 R 0 
MS CPSA-MD-ERROR 5 44 994444 STEP14 00000604 a3 
MSCPSM_MD_EXPRS = 00008000 STEPI5_A OOOO6EF Bs 
MSCPSM_MD_PRIMR = 00000 Bq STEP15_B 0000717 R 
MSCPSM_MD_SECOR = 00000200 STEP16 0000783 R 02 
mecpancay ae = $eeuet SEE se 
MSCPSSqS TRASK = 00000005 STEPS Fh Ce . 8S 
MSCPSV_EF _BBLKR = 00000007 otEee 000038 0s 
MSCPSV_EF-ERLOG = 00000005 STEP OOOO0SFB R 
MSCPSV_ST-MASK = 00000000 STEPS SRO ROCEE R 02 
MSCPSW_MODIFIER = 0000000A STEP9 QOOO4FE R 02 
MSCPSW_STATUS £ STEPSIZ = 0000000 
ie D 08 TEST_PATTERN = B6DBCB6D 
OPASUCBO x 0 TEST-RCT_ENTRY 00000885 R 02 
PDTSL_ALLOCMSG = 4 TYPSTZ = 00000007 
PDTSL_DEALLOMSG = UCB$B_DU_RBNPTRK aeeeenee =X 03 
PDTSL_MAPIRP = UCB$B_DU-RCTCPYS aeeeeeee =X 0 
PDTSL_RCHMSGBUF 2 UCBS$L_CD = 0000008C 
PDTS$L_UNMAP = UCBSL_CDT = 000000C8 
RCTSL_BAD_RBN = UCB$L_DU_USIZE aeeeenee = X 02 
TSL-LBN™ = UCBSV_MSCP_WRTP = 00000000 
RCTSL_RBN = UCBSW_DEVSTS = 00000068 0 
RCTSM_ALLOCATED = UCBSW-DU_LBNPTRK teeeenee =X 3 
RCTSM_BR s UCB$W_DU-RCTSIZE aeeenere =X 0) 
RCTSM_FE z ucB su RITCNT = 20900018 
NONP. = = 
RCTSACRP! — = VASV-VPN = $900008 
RCTSM_RP2 s WRITE_RCT_BLOCK 00000909 R 02 
RCTSM_UNUSABLE = 
RCT$S_LBN = 
RCTSV_ALLOCATED = 
RCTSV_BR = 
RCTSV_FE = 
RCTS$V_LBN = 
RCTSV_NULL = 
RCT$V_RP1 = 
RCT$V_RP2 = 
RC TSW” FLAGS = 
RD$i_CTORP s 


| DUHIRT 
Psect synopsis 


| 
| 
ai name 
ri 


$8115 DRIVER 
$$$300"H 
$$$301“HIR_ERRORS 


187 469 bytes ( 


Macro Library name 


ee 
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femora moe amomanes + 


! Psect synopsis ! 


boeasceeoemeasenee $ 


Allocation PSECT No. Attributes 
080800 ( 0.) 60 ( -) NOPIC USR ABS LCL NOSHR NOEXE NORD 
49H ( 3 4.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE’ RD 
$94 ( 3230.) o¢ ( §°} NOPIC USR CON REL LCL NOSHR' EXE RD 
0000 443 ( 136.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD 
00000056 ( 86.) 04 ( 4.) NOPIC  USR REL LCL NOSH EXE RD 


¢owmees oe ace amma arn ea eeaee $ 


! Performance indicators : 


Phase Page faults CPU Time Elapsed Time 
Initialization 7 80: 0:00.07 0:00:00.33 
zouness processing 139 0:00:00.44 B09 08-92 
724 BR: 0: +96 :01:13.7 
Syabol table sort 0 :00:03.1 tee eet 
s2 407 00:00:05.60 0:00:41.25 
Syabot table output 1 0: 8288 - ° 0:00:00.47 
Psect synopsis output 0 0:00:00. 0 88:88 -03 
Cross-reference output 8 Q: $3 et 00:00:00.00 
Assembler run totals 131 00:00:31.58 00:02:07.79 


Hb eerking “(S67 bas was 2700 pages. 

7 pages) of virtual memory were used to buffer the intermediate code. 
There were 160 pages of symbol table space allocated to hold 2953 non-local and 117 Local symbols. 
2652 source tinge were read in Pass 1, produc ing 
61 pages of virtual memory were used to define 59 macros. 


object records in Pass 2. 


$¢ eer ee oceeoeccs one Emme oe wo oH 


! ; Macro library statistics ! 


SB ome meee Guleneinienmetintiegdeelh 


Macros defined 


-$255SDUA28 : ceive JJDUTULIB.MLB; 1 8 
- 55$DUA28:(SYS.OBJJLIB.MLB; 1 31 
$255$DUA28: SYSLIBISTARLET.MLB; 2 9 
TOTALS ‘all Libraries) 48 


3143 GETS were required to define 48 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DUHIRT/OBJ=OBJ$:DUHIRT MSRC$:DUHIRT/UPDATE=(ENHS:DUHIRT) +EXECMLS$/LIB+LIB$:DUTULIB/LIB 
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